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ABSTRACT 

The  goal  of  the  present  work  was  to  upgrade  the  data 
acquisition  system  (DAS)  in  the  high-speed  building  of  the 
Turbopropulsion  Laboratory  (TPL)  and  to  develop  a  high-speed 
acquisition  capability  for  pressure  measurements  for  both  the 
TPL  and  the  new  Gas  Dynamics  Laboratory  (GDL) .  Based  on  the 
use  of  the  Hewlett  Packard  HP9000  Series  300  Computer  as  the 
system  controller,  a  96-channel  high-speed  pressure  DAS  was 
developed  using  Scanivalve  ZOC-14  modules  and  a  CALSYS2  000 
calibrator.  The  system  allowed  acquisition  times  for  current 
wind-tunnel  experiments  to  be  revised  from  four  minutes  to 
eleven  seconds.  Also,  new  software  was  written  to  acquire 
data  from  existing  rotary  pneumatic  Scanivalves  and  HP-IB 
compatible  instrumentation  so  that  all  other  existing 
acquisition  capabilities  were  maintained  in  both  laboratories. 
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I.   INTRODUCTION 

The  Turbopropulsion  Laboratory  (TPL)  consists  of  two  large 
buildings,  each  with  a  central  data  acquisition  system  (DAS) 
serving  multiple  rotating  and  cascade  test  rigs.  One  building 
is  for  low-speed  and  one  is  for  high-speed  flow  experiments. 
The  Gas  Dynamics  Laboratory  (GDL)  consists  of  a  single  large 
building,  closely  adjacent  to  the  other  two,  for  which 
components  for  a  central  data  acquisition  system  had  been 
purchased,  but  not  installed,  at  the  inception  of  the  present 
work.  The  GDL  houses  three  blow-down  wind  tunnel  facilities 
and  a  shock  tube. 

In  planning  the  DAS  for  the  GDL,  commonality  of  the 
controller  with  the  systems  in  the  TPL  was  desirable  in  order 
to  eliminate  the  need  for  students  to  learn  different 
machines,  to  simplify  the  support  task,  and  to  interchange 
parts  in  the  event  of  a  failure.  Since  the  TPL  low-speed 
building  was  recently  upgraded  to  use  a  Hewlett-Packard  HP9  000 
Series  300  computer,  two  additional  similar  computers  were 
purchased,  one  for  the  DAS  new  DAS  and  one  to  upgrade  the  DAS 
in  the  TPL  high-speed  laboratory.  Thus  the  task  in  the 
present  work  was  two-fold.  First,  software  was  required  to  be 
generated  on  the  HP9000  which  would  enable  all  established  DAS 
functions  and  experiments  in  the  high-speed  laboratory  at  the 
TPL  to  be  maintained.   Second,  a  high-speed  scanning  data 


system  was  required  to  acquire  pressure  measurements  in  the 
short  (minutes)  duration  blow-down  wind  tunnel  tests  in  the 
GDL.  Future  upgrading  in  all  laboratories  would  clearly 
depend  on  the  experience  gained  in  developing  the  high  speed 
scanning  system. 

The  pre-existing  DAS • s  at  the  TPL  incorporated  Hewlett 
Packard  HP-IB  compatible  scanners,  digital  voltmeters,  system 
voltmeters,  frequency  counters  and  a  locally  developed  HG-78K 
controller  for  pneumatic  Scanivalves.  Prior  to  the  HP9000 
acquisition,  in  earlier  updates,  the  HP983  0,  HP9845  and  HP1000 
computers  had  been  used  as  system  controllers.  Because  of 
almost  unlimited  run-times  of  the  rigs  at  the  TPL,  and  the 
need  largely  to  record  many  channels  of  "steady-state" 
measurements,  the  data-recording  times  were  not  a  critical 
issue.  [For  "real-time"  pressure  measurements,  a  16-channel 
100  Khz  capability  was  provided  using  a  (non  HP-IB)  DMA  input 
to  the  HP1000  from  a  now-obsolete  HP5610A  A/D  converter] . 

Data  acquisition  was  accomplished  in  the  "steady-state" 
system,  by  computers  executing  individual  data  measurement 
instructions  under  program  control.  The  maximum  data 
collection  rate  was  determined  by  the  speed  that  the  computers 
could  execute  individual  instructions  within  the  program 
between  consecutive  data  measurement  steps.  Pressure 
measurements  were  made  using  the  Scanivalve  rotary  pneumatic 
pressure  sensing  unit  operated  by  the  NPS  HG-78K  Controller. 
The  Scanivalve  unit  sequentially  stepped  through  its  block  of 


ports  collecting  single  pressure  data  once  every  1.5  seconds. 
The  HG-78K  stepped  the  Scanivalve  to  the  specified  measurement 
port  on  commands  executed  by  the  computer.  In  summary,  the 
pressure  data  acquisition  rate  was  limited  by  the  speed  of  the 
peripheral  devices  and  by  the  computer's  speed  in  executing 
program  instructions. 

The  first  task  in  the  present  work,  to  regenerate  the 
software  for  the  TPL  "steady-state"  DAS  in  HP  BASIC  5.13  on 
the  HP9000,  served  to  become  familiar  with  the  computer  and 
its  programming,  but  no  detailed  report  is  included  herein. 
The  main  task  was  to  develop  a  high-speed  scanning  system  for 
GDL,  and  this  is  documented  in  detail. 

The  hardware  for  the  new  system  included  the  HP9000  Desk 
Top  Computer  System,  HP6944A  Multiprogrammer,  Scanivalve  ZOC- 
14  Electronic  Scanning  Pressure  Module  and  CALSYS2  000 
Calibrator.  The  HP9000  serves  as  the  computer-controller 
using  the  BASIC  programming  language.  Data  and  program 
storage  for  the  HP9000  is  handled  by  a  HP9153C  Disc  Drive 
incorporating  a  40  mega-byte  hard  drive  and  1.44  mega-byte 
3.25"  floppy  drive.  (The  HP9153C  replaced  the  older  HP7906 
Disc  Drive  and  HP7970E  Tape  Drive  of  the  HP1000  system) . 

The  HP6944A  combines  several  data  acquisition  devices  (I/O 
Cards)  into  one  unit.  The  significant  feature  of  the  HP6944A 
is  its  ability  to  perform  specific  data  acquisition  functions, 
and  to  control  the  data  measurement  steps  without  intervention 
from  the  host  computer  (HP9000) .   The  HP6944A  removes  the 


individual  data  measurement  instructions  of  the  program  from 
the  acquisition  process,  resulting  in  data  rates  which  are 
limited  only  by  the  speed  of  the  individual  I/O  card  and  the 
non-Hewlett  Packard  device. 

In  comparison  with  the  TPL  "steady-state"  system,  the  ZOC- 
14  module  replaces  the  low  speed  rotary  Scanivalve  and  instead 
provides  high  speed  electronic  scanning  of  the  pressure  ports. 
The  CALSYS2000  provides  ZOC  control  and  supplies  calibration 
pressures  to  it,  making  the  ZOC  and  CALSYS2000  a  "packaged" 
pressure  measurement  system. 

The  software  which  was  generated  to  integrate  the  HP9000, 
HP6944A  and  Scanivalve  ZOC-14/CALSYS2000  system  was  designated 
as  program  SCAN_ZOC_05.  The  complete  package  of  hardware  and 
software  is  referred  to  hereafter  as  the  ZOC-14  Data 
Acquisition  System,  or  ZOC-14  DAS. 

In  the  present  document,  Chapter  Two  describes  and 
discusses  the  development  of  the  ZOC-14  DAS.  The  hardware, 
individual  component  operation,  integration  of  the  components 
into  a  complete  system,  and  the  application  programs  to 
operate  the  DAS  are  discussed  in  detail.  It  is  hoped  that 
this  chapter  will  serve  as  a  manual  for  the  system,  and  as  a 
guide  to  those  responsible  for  future  extensions. 

Chapter  Three  discusses  the  upgraded  capabilities  of  TPL 
and  GDL  DAS's,  potential  extensions  and  outstanding  issues. 
(The  ZOC-14  DAS  is  fully  operational,  but  requires  resolution 
of  these  issues  to  optimize  the  system's  performance). 


Finally,  conclusions  are  drawn  and  a  particular  recommendation 
is  made  in  chapter  Four. 

Additional  details  are  given  in  the  Appendices.  Appendix 
A  contains  the  ZOC-14  DAS  application  program  flow  chart,  the 
application  program  SCAN_ZOC_05,  and  associated  utility 
programs.  The  utility  programs  are  used  to  read  and  display 
the  results  of  the  data  compiled  by  the  SCAN_ZOC_05  program. 

Appendix  B  contains  four  earlier  versions  in  arriving  at 
the  SCAN_ZOC_05  program.  The  program  evolved  in  steps,  as 
knowledge  was  gained  on  the  hardware  operation  and 
integration,  and  software  programming.  Each  program  is 
annotated  with  pertinent  information  to  describe  the  program  •  s 
functional  routines,  and  are  reported  as  and  aid  to  future 
programming . 

Appendix  C  contains  a  brief  guide  to  managing  data  files 
provided  by  the  ZOC-14  DAS  collection  process.  A  program  is 
listed,  and  instructions  provided,  to  view  and  delete  selected 
data  files  from  the  hard  drive.  A  sample  print-out  of  the 
hard  drive  contents  is  provided,  showing  the  data  file  listing 
and  unique  structure  for  the  ZOC-14  DAS  data  files. 

Appendix  D  provides  a  listing  of  all  major  programs 
developed  for  use  on  the  HP9000  for  the  TPL.  A  compilation  of 
all  programs,  listed  in  groups  of  "directories"  contained  on 
the  HP9153C  hard  drive,  is  provided.  The  major  program 
listings  are  divided  into  the  categories  of  Turbocharger 
Performance,  AE4431  Turbomachinery  Design,  and  several  sample 


routines  to  operate  devices,   perform  calculations,   and 
manipulate  files. 


II.   ZOC-14  DATA  ACQUISITION  SYSTEM 


A.   General  Overview 
1 .  Hardware 

The  ZOC-14  Data  Acquisition  System  (DAS)  hardware 
includes  the  Scanivalve  ZOC-14  Electronic  Pressure  Scanning 
Module  (Figure  1)  ,  the  Scanivalve  CALSYS2000  Calibration 
System  (Figure  2)  ,  the  Hewlett  Packard  HP6944A  Multiprogrammer 
(Figure  3) ,  and  the  Hewlett  Packard  HP9000  Desk  Top  Computer 
System  and  peripherals  (Figure  4) . 


* 


Figure  1   ZOC-14  Electronic  Pressure  Scanning  Module 


Figure  2  CALSYS2000  Calibration  System 


Figure  3   HP6944A  Multiprogrammer 


Figure  4  HP9000  Computer  System 
2.   Software  and  Literature 

The  HP9000  is  provided  with  BASIC  5.13  software.  On- 
line compilation  occurs  when  a  program  is  executed  by  the  RUN 
command.  This  user-friendly  feature  allows  expeditious 
changes  to  be  made  in  a  program  without  the  separate  time 
consuming  re-compilation  process  required  by  other  high  level 
programming  languages.  The  result  is  the  ability  to  RUN  a 
program,  change  the  program,  and  RUN  the  program  again  with 
minimal  effort  and  time,  making  BASIC  an  ideal  tool  for  an 
engineer. 


The  BASIC  software  system  and  documentation  includes 
the  necessary  firmware  provided  on  seven  3.25"  floppy  disks 
and  twelve  manuals  describing  the  loading,  utilization,  and 
maintenance  of  BASIC  (Figure  5) [Ref .  1  through  Ref.  12]. 


Figure  5  Hewlett  Packard  BASIC  Program  and  Literature 

The  two  volume  Hewlett  Packard  Educational  Package 
(Figure  5) [Ref.  13  through  Ref.  14]  is  vital  to  quickly  learn 
BASIC  and  its  implementation  with  the  HP9000  and  the  line  of 
Hewlett  Packard  peripheral  devices.  This  package  condenses 
all  the  pertinent  information  contained  in  the  BASIC  program 
manuals.  The  novice  programmer  will  find  that  the  Educational 
Package  provides  the  necessary  fundamentals  in  how  to  use 
BASIC.  The  advanced  programmer  will  be  regularly  referencing 
the  BASIC  program  manuals  for  his  programming  requirements. 
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The  HP14753A  CAT  Program  Package  (Figure  5) [Ref .  15] 
comprises  the  firmware  and  documentation  required  to  set-up 
and  operate  the  HP6944A  Multiprogrammer.    Details  of  this 
package  will  be  discussed  later  in  this  chapter. 
3.   TPL  ZOC-14  DAS  System 

The  TPL  ZOC-14  DAS  System  is  an  integration  of  all  the 
aforementioned  hardware,  firmware,  and  newly  developed 
software  into  an  application  package.  The  capability  of  the 
system  is  the  ability  to  collect  pressure  data  on  multiple 
channels  at  high  sampling  rates,  reduce  the  raw  data,  and 
store  the  reduced  data  using  a  user  friendly,  menu-driven 
operating  program  on  the  HP9000  computer.  A  schematic  of  the 
ZOC-14  DAS  System  is  illustrated  in  Figure  6.  The  HP9000 
computer  is  the  central  controlling  device  for  the  system. 
Software  on  the  HP9000  controls  data  collection  from  the 
CALSYS2000  and  HP6944A,  data  reduction,  and  data  storage  to 
the  computer's  hard  drive  and  floppy  drive.  The  HP6944A 
interfaces  with  the  ZOC-14  modules  providing  electronic  port 
selection,  receiving  analog  voltages  and  converting  to  digital 
data.  The  CALSYS2000  is  controlled  by  the  HP9000,  provides 
calibration  pressure  to  the  ZOCs,  pneumatically  sets  the  ZOC's 
operating  modes,  and  provides  digital  data  conversion  of 
calibration  pressure  to  the  HP9000.  The  ZOC-14  module 
converts  pneumatic  pressures  to  analog  voltage  signals  which 
are  collected  in  the  HP6944A. 
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Figure  6  ZOC-14  Data  Acquisition  System 
B.   Hardware  Description 

1.   ZOC-14  Electronic  Pressure  Scanning  Module 
a.   Principle  of  Operation 

The  ZOC-14  is  a  32  port  electronically  switched 
pressure  sensing  device.  Internally,  pressures  are  converted 
through  semi-conductor  strain  gages  to  an  analog  voltage 
output  signal  for  each  selected  port  (Figure  7) .  The 
electronic  switching  feature  allows  the  individual  strain 
gages  to  be  selected  at  random,  and  the  output  voltage  signal 
to  be  read. 
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Figure  7   ZOC-14  Module  Diagram 

Each  ZOC  contains  a  series  of  valves  that  are 
pneumatically  switched  to  set  an  operating  mode.  Shown  in 
Figure  8  are  the  ports  PI  through  Px  which  are  connected  by 
pneumatic  pressure  tubing  to  the  apparatus  or  probe  where 
pressure  is  to  be  measured,  such  as  the  model  in  a  wind 
tunnel.  The  Calibration  Manifold  and  Sensor  Reference 
Pressure  Manifold  are  connected  to  the  CALSYS2000  to  receive 
a  reference  calibration  pressure  to  be  measured  by  the  ZOC  for 
calibration  purposes.  CAL  Control  (CTL1)  and  Px  Control 
(CTL2)  are  pneumatic  control  lines  that  position  the  valves  to 
set  the  required  operating  mode  in  the  ZOC.  CAL  and  Px 
control  pressures  are  provided  by  the  CALSYS2000. 


13 


PRESSURE  SENSOR  MODULE 

CONTROL  AIR  SUPPLY 

EXHAU3T 


Px  CONTROL 
SOLENOID  VALVE 


CAL  CONTROL 
SOLENOID  VALVE 


TEST  PRESSURE  INPUTS 

PI  P2  P3  P4 


EXHAUST 


s\Lif 


PISTON  TYP.- 


E5UfSUEl 


K> 


::::dy 


MULTIPLEXER  &   AMPLIFIER.    . 


VOLT  SIGNAL  OUTPUT: 


T 


#ZOC  =  ZERO  OPERATE  &  CALIBRATE 


•Px  VALVE.  TYP. 


CALIBRATION 
MANIFOLD 
(PURGE  MODE 
SHOWN) 


SENSOR 
REFERENCE 
PRESSURE 
MANIFOLD 


FIELD  REPLACEABLE 
PRESSURE  SENSOR 


Figure  8   ZOC-14  Valve  Body  Schematic 

The  ZOC  operates  on  the  principle  "ZERO  OPERATE 
AND  CALIBRATE";  hence  the  name  "ZOC".  This  principle  involves 
a  two  phase  sequence.  The  first  phase  sets  the  ZOC  into  an 
"OPERATE"  mode  and  experimental  pressure  data  at  pressure 
ports  PI  through  Px  are  converted  and  recorded.  The  second 
phase  sets  the  ZOC  into  the  "CALIBRATE"  mode.  The  CALSYS2  000 
provides  a  calibration  pressure  through  the  Calibration 
Manifold  and  Sensor  Reference  Pressure  Manifold  to  each  strain 
gage.  Calibration  pressure  data  are  then  collected  from  the 
ZOC  for  each  port  by  the  HP6944A.  The  HP9000  collects  the 
pressure  data  from  the  HP6944A  and  digital  converted 
calibration  pressure  data  from  the  CALSYS2000.  These  two  sets 
of  data  are  plotted  against  each  other  to  get  a  calibration 
curve  for  each  ZOC  strain  gage. 

Figure  9  illustrates  the  ZOC's  four  modes  of 
operation.   In  the  OPERATE  mode,  PI  .pressure  is  routed  to  the 
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Figure  9   ZOC-14  Pneumatic  Switching  Modes 

strain  gage,  and  the  Calibration  Manifold  is  isolated.  In  the 
CALIBRATE  mode,  calibration  pressure  is  routed  to  the  strain 
gage,  and  the  PI  pressure  is  isolated.  The  PURGE  and  LEAK 
TEST  modes  are  used  for  clearing  pressure  lines  and  for 
diagnostic  checks,  respectively. 

The  Multiplexer  and  Amplifier  section  (Figure  8) 
facilitates  the  ZOC's  high  speed  scanning  capability.  The 
multiplexer  is  driven  by  a  five  bit  address  input  signal  (AO 
through  A4)  from  the  HP6944A,  selecting  a  specified  port  from 
1  to  32  in  binary  code.  The  ZOC's  electronic  module  is 
illustrated  schematically  in  Figure  10.  The  analog  output 
signal  processing  is  accomplished  within  the  electronic 
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Figure  10   ZOC-14  Electronics  Schematic 
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section  of  the  ZOC. 

Reference  16  provides  all  pertinent 
specifications,  descriptions  of  the  design  and  operation,  and 
is  the  source  document  for  the  above  technical  information  on 
the  ZOC-14  Module. 

b.   ZOC-14  Enclosure 

The  ZOC-14  Enclosure  was  designed  and  built  at  NPS 
to  provide  a  mobile  and  versatile  module  which  was  convenient 
for  electronic  and  pneumatic  connections,  and  provided 
protection  in  the  laboratory  environment.  Components  in  the 
enclosure  include  one  ZOC-14  Module  (Figure  1)  ,  a  115  VAC 
power  supply,  a  BNC  connection  for  the  output  signal,  Cannon 
plugs  for  the  ZOC  address  input,  and  a  pneumatic  connection 
plate  for  measurement,  control,  and  calibration  pressure  lines 
(Figure  11) . 

Each  Px  port  on  the  ZOC-14  module  has  a 
corresponding  port  connection  on  the  pneumatic  connection 
plate.  The  connection  plate  port  numbers  1  through  3  2 
correspond  to  the  ZOC's  ports  as  selected  by  the  binary 
address  code.  The  Px  Control,  CAL  Control,  CAL,  and  REF  ports 
on  each  valve  block  (Figure  7)  are  each  connected  to  a  common 
line  as  illustrated  in  Figure  12.  The  Px  Control  line  is 
routed  to  port  number  33,  CAL  Control  to  port  number  34,  CAL 
to  port  number  35,  and  REF  to  port  number  36.  Ports  3  7 
through  48  are  not  used. 
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Figure  11  ZOC-14  Enclosure 


The  enclosure's  electrical  wiring  is  illustrated 
schematically  in  Figure  13 .  The  two-five  pin  Cannon  plugs  are 
wired  in  parallel  to  jumper  ZOC  address  line  connection  points 
between  adjacent  enclosures.  This  feature  allows  for  one 
address  line  from  the  HP6944A  to  be  connected  to  the  first 
enclosure  Cannon  plug.  The  second  enclosure  receives  its  ZOC 
address  signal  from  the  second  Cannon  plug  on  the  first 
enclosure  by  a  jumper  line.  The  third  and  following 
enclosures  receive  their  ZOC  address  signals  in  the  same 
sequence  of  connections. 

A  significant  capability  of  the  ZOC  address 
control  feature,  in  connection  with  the  HP6944A,  is  the 
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Figure  12   ZOC-14  Enclosure  Pneumatic  Line  Schematic 
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Figure  13   ZOC-14  Enclosure  Electronics  Schematic 
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ability  to  simultaneously  collect  pressure  data  from 
corresponding  ports  on  a  multiple  ZOC  configuration.  This 
capability  could  play  a  significant  role  in  determining  the 
pressure  behavior  at  two  or  more  different  points  at  the  same 
instance  in  time.  The  number  of  instantaneous  data  points  is 
determined  by  the  number  of  ZOCs  connected  into  the  ZOC-14  DAS 
System. 

2.   CALSYS2000  Calibration  Module 
a.   Description 

The  CALSYS2000  interfaces  the  ZOC  module  with  the 
HP9000  computer  by  setting  the  ZOC  mode  selection  as  commanded 
by  the  HP9000,  providing  calibration  information-  to  the 
HP9000,  and  sending  a  reference  calibration  pressure  to  the 
ZOC  for  calibration  purposes.  Figure  141  shows  a  front  view 
of  the  CALSYS2  000  module. 

The  CALSYS2000  is  comprised  of  a  Calibration 
Module  (CALMOD  2000)  and  a  Power  and  Solenoid  Control  (PSC 
2000)  module.  Figure  15  illustrates  the  external  pneumatic 
and  electrical  line  connections  between  the  two  modules,  the 
nitrogen  supply  source  and  ZOC  pneumatic  line  connections  as 
seen  in  a  rear  view  of  the  CALSYS2  000  as  it  is  installed  at 
the  TPL. 


1   Figure  14  is  found  in  Ref.  17,  page  10,  as  Figure  1 
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Figure  14   CALSYS2000  Calibration  System 

b.   Calibrator  Module  (CALMOD  2000) 

The  CALMOD  2000  provides  the  electronic  interface 
with  the  HP9000  through  the  serial  RS-232C  data  link  with  a 
built-in  processor.  The  processor  responds  to  various 
commands  from  the  HP9000  and  issues  control  signals  to  actuate 
an  array  of  solenoids  within  the  CALMOD  and  PSC.  The 
selective  setting  of  the  solenoids  routes  reduced  nitrogen  gas 
pressure  to  set  the  ZOC  modes,  and  provide  a  regulated 
calibration  reference  pressure  for  ZOC  transducer  calibration. 
An  internal  Pressure  Standard  module  samples  the  calibration 
pressure  and  provides  a  proportional  analog  voltage  value  to 
the  processor.   The  processor's  internal  A/D  and  mathematical 
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Figure  15  CALSYS2000  External  Line  Connections 

processors  return  a  digital  measure  of  the  pressure  in  either 
psia  or  inches  of  mercury.  The  CALMOD  is  currently  set  for 
inches  of  mercury.  The  processor  provides  this  digital 
pressure  value  at  the  front  window  on  the  CALMOD  (item  5, 
Figure  14)  ,  and  also  returns  the  value  to  the  HP9000  following 
a  "read  pressure"  command. 

The  CALMOD  has  three  manually  adjustable  pressure 
regulators  (items  6,7,8  in  Figure  14)  and  associated  pressure 
display  buttons  (items  2,3,4  in  Figure  14).  These  regulators 
provide  three  different  reference  calibration  pressures  that 
the  ZOC  uses  for  calibration.  During  the  calibration  mode, 
each  one  of  the  three  calibration  pressures  are  sequentially 


23 


sent  to  the  ZOC  and  the  Pressure  Standard.  To  calibrate  the 
ZOC  for  positive  pressures,  the  calibration  pressure  is 
provided  through  the  Calibration  Manifold  to  the  strain  gage 
transducers.  To  calibrate  the  ZOC  for  negative  pressures,  the 
calibration  pressure  is  provided  through  the  Sensor  Reference 
Pressure  Manifold  to  the  backside  of  the  strain  gage 
transducer.  Pressure  data  from  the  CALSYS2000  and  ZOC  are 
collected  by  the  HP9000  and  reduced  to  obtain  calibration 
curves  for  each  ZOC  transducer. 

Figure  162  shows  the  rear  panel  of  the  CALMOD  2000 
with  all  the  installed  connection  ports.  Figure  15 
illustrates  the  ports  currently  used  at  TPL.  The  CALMOD 
receives  a  common  low-pressure  supply  of  nitrogen  gas  to  the 
Solenoid  Supply  and  Regulator  Supply  connections.  Regulated 
calibration  pressure  is  supplied  to  the  ZOC  Calibration 
Manifold  through  the  CAL(+)  connection,  and  the  Sensor 
Reference  Pressure  Manifold  through  the  REF(-)  connection. 

Figure  173  shows  the  pneumatic  lines  between  the 
CALSYS2000  and  ZOC  units.  The  TPL  currently  has  two  15  psid 
and  one  50  psid  ZOCs.  These  ranges  require  a  nominal  90  psi 
Regulated  (Instrument)  Air  Supply  to  properly  operate4.  The 
solenoid  supply  is  90  psi  for  both  the  CALMOD  and  PSC. 


2  Figure  16  is  found  in  Ref.  17,  page  12,  as  Figure  2. 

3  Figure  17  is  found  in  Ref.  17,  page  21,  as  Figure  5. 

4  Refer  to  Ref.  17,  dwg  16202,  sht  1  of  9,  in  back  of 
ref.  17. 
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Figure  16   CALMOD  2  000  Rear  Panel 

c.   Power  and  Solenoid  Control  Module  (PSC  2000) 

The  PSC  provides  the  CALSYS2000  electrical  power 
and  pneumatically  controls  the  ZOCs.  Figure  18  shows  the  rear 
panel  of  the  PSC  with  all  external  connections.  Electrical 
power  is  supplied  to  the  CALMOD  through  an  electrical  jumper 
between  the  Power  Out  (item  3  in  Figure  18)  and  Power  In 
terminals  shown  in  Figure  15.  The  PSC  contains  the  solenoids 
which  route  control  air,  CAL  CTL  and  Px  CTL  (item  5  in 
Figure  18)  to  the  ZOC  for  mode  selection.  These  two  solenoids 
are  controlled  by  the  CALMOD  through  an  electrical  cable 
connecting  the  Solenoid  Control  connections  (item  3  in 
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Figure  17   CALSYS2000-ZOC  Pneumatic  Hook-up 

Figure  16  and  item  4  in  Figure  18) .   ZOC  control  gas  to  the 
solenoids  is  supplied  at  90  psia  from  a  high  pressure  nitrogen 
cylinder  through  the  Supply  port  (item  7  in  Figure  18). 
d.   CALSYS2000  Operation 

The  CALSYS2000  communicates  with  the  HP9000 
Computer  through  the  RS-232C  serial  data  link  using  ASCII 
character  format  commands.   The  commands  used  for  the  ZOC-14 
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Figure  18   PSC  2  000  Rear  Panel 


DAS  are  of  two  types: 


♦  Commands  from  the  HP9000  to  set  ZOC  and  CALSYS2000  modes 
by  the  actuation  of  control  solenoids. 

♦  Commands  to  provide  pressure  data  to  the  HP9000,  read  from 
the  Pressure  Standard. 


The  command  format  for  communications  requires  the  HP9000 
command  statement  to  have  the  following  ASCII  Character  code 
format: 

aCC(CR) 


27 


The  "a"  is  the  CALMOD  address  character  which  is  currently  "1" 
for  the  only  CALMOD  installed  in  the  CALSYS2000  at  the  TPL. 
A  second  CALMOD  would  have  the  address  character  of  "2".  The 
•»CC"  part  is  the  applicable  command  code  such  as  "PH"  which  is 
discussed  later.  The  "(CR)"  is  for  a  ASCII  carriage  return 
character  which  is  "13"  in  decimal  format. 

The  commands  used  to  set  ZOC  and  CALSYS2  000  modes 
are  summarized  below: 

OPERATE  mode  -  This  mode  allows  pressure  to  be  measured  by 
the  ZOC  by  setting  the  valves  in  the  ZOC  to  route  Px  air 
directly  to  the  strain  gage.  Calibration  functions  are  at 
idle.  The  OPERATE  mode  is  the  CALSYS2000  condition  when  it  is 
first  initialized  or  powered-up. 


♦  alC     Initialize  Calibrator  to  set  the  CALSYS2000  to 
its  power-up  condition 


CALIBRATION  mode  -  This  mode  is  set  at  the  ZOC. 
Calibration  reference  pressure  is  sent  to  the  ZOC,  and  all  gas 
is  routed  to  the  Pressure  Standard  for  display  on  the  CALMOD 
window,  and  made  available  to  the  HP9000. 


♦  aPH     Route  high  pressure  gas  from  Regulator  #1  to 

the  ZOCs  through  the  Calibration  Manifold 

♦  aPM     Route  medium  pressure  gas  from  Regulator  #2  air 

to  the  ZOCs  through  the  Calibration  Manifold 

♦  aPL     Route  low  pressure  gas  from  Regulator  #3  to  the 

ZOCs  through  the  Calibration  Manifold 
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♦  aZO     Gas  in  the  Calibration  and  Reference  Pressure 

Manifolds  is  equalized  to  atmopheric 
pressure  in  these  manifolds 

♦  aNL     Route  low  pressure  gas  from  Regulator  #3  to  the 

ZOCs  through  the  Reference  Pressure  Manifold 

♦  aNM    Route  medium  pressure  gas  from  Regulator  #2  to  the 

ZOCs  through  the  Reference  Pressure  Manifold 

♦  aNH     Route  high  pressure  gas  from  Regulator  #1  to  the 

ZOCs  through  the  Reference  Pressure  Manifold 


Read  Pressure  -  The  CALMOD  is  asked  for  the  current 
pressure  value  being  sampled  by  the  Pressure  Standard.  This 
command  is  used  only  by  the  ZOC-14  DAS  program  during  the 
Calibration  Mode.  When  the  CALSYS2000  is  in  its  "initialized 
condition",  the  Pressure  Standard  reads  atmospheric  pressure. 

k 

♦  aRP     Reads  the  pressure  sampled  by  the  Pressure 
Standard  and  returns  the  value  in  inches  of 
mercury  in  ASCII  character  format: 
"+/-!• 23456E+78  at  a" 

Reference  17,  Chapter  4,  discusses  the  details  and 
available  command  codes  use  by  the  CALSYS2000.  The  above 
codes  are  only  used  in  the  ZOC-14  DAS  program  with  the  HP9000. 
The  CALSYS2000  is  designed  to  operate  from  any  PC  using  a 
standard  modem  control  program. 

The  HP9000  and  BASIC  programming  language  required 
a  modification  of  the  CALSYS2000's  command  format  factory 
settings.  The  Line-feed  (LF)  ASCII  character  in  the  command 
line  corrupted  the  command  message  to  the  CALSYS2  000  on  any 
subsequent  command  following  the  initial  HP9000  command. 
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Deletion  of  the  LF  from  the  HP9000  command  resulted  in 
uninterrupted  command  of  the  CALSYS2000. 

[In  •  its  factory  configuration,  the  CALMOD 
"handshakes"  with  a  host  computer  using  a  "prompt  record"  to 
respond  to  a  host  computer  command.  (See  Reference  17)  . 
Following  a  command  issued  to  the  CALMOD,  the  HP9000  would 
receive  an  interrupt  error  and  halt  the  program.  The  BASIC 
line  commands  to  handle  the  CALMOD  prompt  record  could  not  be 
determined.  Subsequently,  the  factory-set  prompt  record 
"(CR) (LF) (;)"  was  deleted  to  allow  the  HP9000  to  continue 
without  an  interrupt  error.  Deletion  of  the  prompt  record 
"  (CR)  (LF)  (;)  "  was  accomplished  by  setting  the  "Null"  prompt 
record.  The  Null  prompt  record  was  set  into  the  CALMOD 
processor  using  the  command  "  SMON  "  followed  by  "  BP  1  " . 
The  commands  were  communicated  using  a  386  PC  with  a  modem- 
control  program  that  performed  computer  to  computer 
communication.  The  first  command  set  the  Null  prompt  record, 
the  second  command  "burned"  the  Null  prompt  record  into  the 
CALMOD' S  PROM. ] 

e.   CALSYS2000  Gas  Supply  System 

The  CALSYS2000  requires  instrument  quality  air 
meeting  ISA-S7.3  [Ref.  17,  page  18].  The  use  of  commercial 
bottled  nitrogen  gas  more  than  satisfied  this  requirement. 
The  supply  system  for  the  CALSYS2  000  at  TPL  is  illustrated  in 
Figure  19.    Nitrogen  gas  is  reduced  through  a  standard 
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regulator  set  at  90  psi,  providing  Solenoid  Control  and 
Regulator  Air. 


Regulator  Sat 
CLou  *  High  Press  Gages) 

R1  /^> 

i  *  in  •  c       ^^^w 

• 

i^/    w  h"i        ^n^v   HP  Rubber  Hose 

High  Pressure         \\ 
Nitrogen  Bottle       \\ 

Io  PSC  2986 
Note:  Lou  pressure  set  to  96  psig 

Figure  19  CALSYS2  000  Nitrogen  Supply 

A  cut-out  valve  (Figure  15)  is  installed  between 
the  PSC  and  CALMOD  to  minimize  nitrogen  gas  consumption.  The 
valve  is  set  closed  (handle  down)  when  the  CALSYS2000  is  used 
in  the  OPERATE  mode.  The  valve  is  opened  for  the  CALIBRATE 
mode.  Higher  gas  consumption  occurs  due  to  the  design  of  the 
regulators  in  the  CALMOD,  which  bleeds  off  gas  to  maintain  a 
constant  pressure  setting. 


31 


3.   Hewlett  Packard  Multiprogrammer  (HP6944A) 

a.  General  Description 

The  HP6944A  (Figure  3)  is  a  self-contained  module 
with  removable  I/O  cards  which  control  various  device 
operations  or  functions  and  interface  with  the  HP9000.  I/O 
cards  are  easily  installed  or  removed  by  sliding  the  card  into 
or  out  of  an  I/O  slot  in  the  enclosure.  The  HP9000 
communicates  with  the  I/O  card  through  the  HP6944A  internal 
processor  and  Backplane  Edge  Connector  which  the  installed  I/O 
card  plugs  into.  Electrical  power  supplies  for  the  I/O  cards 
are  contained  in  the  HP6944A  enclosure.  The  HP6944A  can 
support  up  to  16  I/O  cards,  depending  on  the  cards'  electrical 
power  requirements.  Figure  20  shows  the  HP6944A  with  the 
eight  I/O  cards  and  associated  "edge  plane"  connecting  cables 
used  for  the  ZOC-14  DAS. 

Reference  18  provides  a  detailed  description  of 
the  HP6944A  and  a  brief  description  of  all  the  I/O  cards 
available  for  the  HP6944A.  The  I/O  cards  used  in  the  ZOC-14 
DAS  are  described  in  the  following  paragraphs. 

b.  I/O  Cards 

(1)    500  Khz  A/D  Card  fHP69759Al • 

The  A/D  card  provides  analog  to  digital  signal 
conversion  from  the  ZOC-14  module.  One  A/D  card  is  required 
for  each  ZOC.  The  card  has  a  capability  of  performing  A/D 
conversions  at  a  rate  of  up  to  500  Khz.   The  card  is  factory 
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Figure  20  HP6944A  Rear  Panel  and  I/O  Cards 

set  to  handle  input  analog  voltages  between  +/-  10  volts 
[Ref.  19].  The  A/D  process  provides  a  12  bit  resolution 
resulting  in  a  5  mV  digital  output  voltage  resolution. 

The  HP1417A  Chaining  Cable  (Figure  215)  interfaces 
the  A/D  card  with  the  Memory  Card,  Pacer  Card  and  ZOC.  The 
digital  output  voltage  value  from  the  A/D  card  is  read  to  the 
Memory  Card  through  the  HP1417A  cable.  The  Pacer  Card's 
trigger  signal  and  ZOC  voltage  signal  are  received  by  the  A/D 
card  through  Chaining  Cable  input  leads. 

5   Figure  21  is  in  Ref.  19  as  figure  2-2. 
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Figure  21  A/D-Memory  Chaining  Cable 

(2)  Memory  Card  fHP69791A) 

The  Memory  Card  is  a  digital  data  storage 
device  used  here  to  store  ZOC  voltage  values  from  the  A/D 
card.  Data  are  stored  in  16-bit  words  and  the  storage 
capacity  is  65,536  words  of  RAM  [Ref  20],  Data  words  can  be 
written  into  the  RAM  at  rates  of  up  to  800  Khz.  The  data  are 
extracted  from  the  RAM  into  the  HP9000  RAM  at  rates  of  up  to 
3  0  KHz.  The  difference  in  data  rates  does  not  limit  the  ZOC- 
14  DAS  process.  The  DAS  program  is  designed  to  collect  and 
store  all  raw  pressure  data  on  the  Memory  Card  for  each 
acquisition  cycle  before  any  data  are  transferred  to  the 
HP9000. 
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(3)  Counter/Totalizer  Card  (HP69775A) 

The  Counter  Card  is  use  in  conjunction  with 
the  Timer/Pacer  Card  to  count  the  number  of  events  that  occur 
during  a  specified  data  collection  cycle.  A  trigger  signal 
from  the  Timer/Pacer  Card  provides  the  signal  pulse  to  step 
the  Counter  Card's  integer  "count-up"  function.  The  Counter 
Card  has  two  counting  modes  that  count  at  rates  of  up  to  1  Mhz 
[Ref.  15  and  Ref.  21].  The  mode  used  in  the  ZOC-14  DAS 
process  counts  from  -32768  to  0.  This  capability  allows  1023 
samples  per  port  of  data,  or  1023x32  events  for  a  maximum  of 
32736  total  data  points  per  run. 

The  Counter  Card  provides  the  count  value  at 
the  card's  Edge  Connector  (Figure  226)  as  an  External  Count 
Output.  The  output  is  a  16-bit  number,  which  is  the  count 
value  as  the  card  is  counting.  Five  of  the  sixteen  bits  (00 
through  04)  are  used  to  drive  the  ZOC  address  value  (bits  A0- 
A4)  through  the  Auxiliary  I/O  Logic  Interface  Device 
(Figure  6) . 

(4)  Timer/Pacer  Card  THP69736A) 

The  Pacer  Card  is  a  square  wave  pulse 
generator  with  a  programmable  pulse  width  feature.  The  pulse 
width  is  programmable  down  to  one  micro  second  duration  or  a 


Figure  22  is  figure  3-5  in  Ref.  21 


35 


o 


wpui  m  <  tut  we  t  vex  r*G* 

HOTIt     /COMMON/ISCXAKOCOMMDN 

CNAflLl 

CK*aiC  HCFEMCNit  vOtlAOt 

\/common/isoi  *rto  COMMON 
i  n'iu  f  POS/NCO 
01-1*81  (  UN  S*M£ 

onofvObirecoGC 

ONE  SHOT'l«inHiC£l<AHLC 

EDC*/lEVtl  SCKSllfVt 

VtOCKOUl 


EIICHNM 

MOOt 
CONintx 


mt 


LV        L 


1SCI  Alio  COMMON 


tiitntut 

COUN1EB 
OUTIMIS 


fildfcw  Of*  stol  R€S€1 


\7  COMMON 


■i 

I 

__    F 

1 

_   t 

. 

U 
N 

t 

I 
i 

M 

/ 

INPUI  »H|.mr«(    vOU*ti£ 

roMMON'iSrt  *rro  common  ^T7  ino'h 

EN*«£ 

CNABlC    HIMUM,    VIHIM 

COMMON/iSOl  A'EO  COMMON  \l 

ENABLE   POSNtli 
0»SABU    ON  T.AMt 

onopwjstrc  edgc 

one  VH)f'f*Tniorrf  rune 

lurj-iivu  sensitive 

NORMALaOCKOUl 
COOPOMA I  CO'lNOt  Pt  NDC  N I 
ISOVA  ICO  COMMON 


"^71  fc.'CHN 

]     rSOl*!l 


EtftEHNAt 

counicr 

OUTPUtS 


O 


tM|  W  COMMON  IS 
ISOCAKO  ONIY  If  CA"0 
JUMFfNS  *"C  CHANGCO 
flfM*  TO  -»AHAG«APM  3  }l 
AJM*IH  wn 


'V 


Figure  22   HP69775A  Edge  Connector 

one  MHz  square  wave7.  The  Pacer  Card  provides  the  trigger  for 
the  A/D  Card  and  timing  step  trigger  for  the  Counter  Card. 
c.   Multiproarammer  Configuration 

(1)  ZOC-14  Integration 

The  ZOC  address  format  and  the  Counter  Card's 
External  Counter  Output  are  the  common  link  that  interface  the 
two  devices.  The  Counter  Card's  count-up  feature  is  used  to 
control  the  ZOC  port  address.  Starting  at  "-32",  for  which 
the  binary  equivalent  is  "00000"  at  the  card  edge,  the  card 
counts  up  to  zero.  Since  00000  is  the  binary  number  which  is 
required  to  set  the  ZOC  address  to  port  number  "1",  the 


Refer  to  Ref.  15  and  Ref.  22  for  details  on  the 
HP69736A. 
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counting  process  steps  the  ZOC  from  port  1  to  port  32.  The 
count-up  process  realizes  the  following  sequence: 

decimal  count  binary  count  ZOC  port  address 
-32  00000  01 

-31  00001  02 

-29  00010  03 

•    •    • 

-02  11110  31 

-01  11111  32 

Initiating  the  count-up  from  "-64"  results  in  two  scanning 
passes  through  the  32  port  ZOC-14  since  only  the  last  five 
bits  are  identified  in  the  ZOC  address.  Selection  of  the 
count-up  value  determines  the  number  of  scans  through  all  the 
ZOC's  ports. 

The  Counter  Card's  external  output  is  set  to 
0.0-0.5  volt  for  "logic  low"  and  to  2.0-5.0  volt  for  "logic 
high"  [Ref.  21,  page  1-2].  The  ZOC  address  bits  (A0-A4  in 
Figure  10)  require  an  open  collector  Transistor-Transistor- 
Logic  (TTL)  driver  to  provide  a  ground  "low"  and  an  open 
"high"  signal.  The  Auxiliary  I/O  Logic  Interface  Device 
(Figure  23)  was  designed  to  interface  the  HP69775A  with  the 
ZOC.  Figure  24  is  the  electrical  schematic  of  the  device. 
The  TTL  7404  is  powered  by  a  5  volt  regulator  [Ref.  23].  The 
regulator  receives  15  VDC  power  from  the  Counter  Card's 
external  edge  connector. 
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Figure  23     Auxiliary  I/O  Logic  Interface  Device 
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Figure  24  Auxiliary  I/O  Logic  Interface  Device  Schematic 
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(2)    I/O  Card  Slot  Conf icruration 

The  current  configuration  of  the  I/O  cards  and 
HP6944A  provides  the  capability  to  collect  pressure  data  from 
up  to  three  ZOC-14  modules.  Figure  25  illustrates  the  I/O 
card  configuration  and  wiring  to  support  the  full  ZOC-14  DAS. 
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Figure  25  HP6944A  I/O  Card  Configuration  Diagram 
Figure  26  shows  the  ZOC-14  DAS  (not  including  the  CALSYS2000) 
with  one  ZOC-14  module  and  all  electrical  lines  connected. 

The  HP6944A  has  a  power  limitation  determined 
by  the  built-in  power  supplies.  Table  I  illustrates  the 
HP6944A  power  supply  availability  and  the  I/O  card  power 
requirements.  The  HP6944A  provides  one  5  volt,  one  12  volt 
and  three  18  volt  power  supplies.   The  maximum  amperage 
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Figure  26  ZOC-14  Data  Acquisition  System  (less  CALSYS2000) 


ratings  are  shown  in  Table  I.  The  power  required  by  the  I/O 
cards  are  shown  in  amperes.  The  upper  value  in  the  table  is 
the  rating  per  card.  For  the  HP69791A  and  HP69759A  cards,  the 
second  value  is  the  total  rating  for  three  cards  of  each  type 
(which  are  required  for  three  ZOC  modules) .  The  total 
amperage  required  for  the  three  HP69759A  cards  exceeded  the 
capacity  of  a  single  18  volt  power  supply.  Therefore,  the 
first  HP69759A  card  receives  its  power  from  the  first  18  volt 
power  supply.  The  second  and  third  HP69759A  cards  receive 
their  power  from  the  second  18  volt  power  supply,  from  which 
they  draw  a  total  of  0.8  amperes.  The  HP69759A  cards  were  set 
by  the  factory  to  draw  power  from  the  first  18  volt  power 
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Table  I  HP6944A  Power  Supply  Allocation 


Device 

Power  Supplies 

HP6944A 

+5V 

16.  OA 

(1) 

+  12V 
2.0A 
(1) 

-12V 
2.0A 
(1) 

+  18V 
0.85A 
(3) 

-18V 
0.4A 
(3) 

Cards 

Power  Required 

HP69791A 

3.6A 
10.  8A 

HP69759A 
HP69759A 
HP69759A 

0.7A 
0.7A 
0.7A 

(1)0. 4A 
(2) 0.4 A 
(2) 0.4 A 

(1)0.075A 
(2)0.075A 
(2)0.075A 

HP69736A 

0.75A 

HP69775A 

0.75A 

0.12A 

0.15A 

(1) 0.12A 

(1) 0.150A 

TOTAL 

14 .  4A 

0.12A 

0.15A 

(1)0. 52A 
(2)0. 80A 

(1)0.225A 
(2)0.150A 

supply.  Access  to  the  second  18  volt  power  supply  required 
alterations  to  be  made  to  the  Power  Supply  Jumpers  for  the 
second  and  third  HP69759A  cards  [Ref.  19,  page  3-1]. 
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C.   ZOC-14  DAS  Software  Description 

1.  General  Overview 

Hewlett  Packard's  BASIC  5.13  program  language  is 
utilized  by  the  HP9000.  Code  is  written  in  this  language  to 
communicate  with  the  various  data  acquisition  devices,  process 
data  and  store  the  data  to  disk,  and  to  output  results  on  a 
printer  or  plotter.  The  HP6944A,  a  central  component  of  the 
ZOC-14  DAS,  is  a  relatively  complex  device  which  can  perform 
numerous  functions  depending  on  how  it  is  configured.  The  use 
of  the  HP6944A  here  required  the  generation  of  a  unique 
software  package  in  BASIC  that  integrated  the  HP6944A  internal 
processor  with  the  configuration  of  I/O  cards  selected  here. 
The  HP14753A  Computer  Aided  Test  (CAT)  Programming  Package 
provided  the  means  to  generate  the  software  for  that 
interface. 

2.  Data  Acquisition  Program 

a.   HP14753A  CAT  Program  Package 

The  HP14753A  CAT  Programming  Package 
(Figure  27) [Ref .  15]  is  software  (and  documentation)  required 
to  operate  the  HP6944A  and  the  associated  I/O  cards.  The 
programmer  uses  the  Hewlett  Packard  provided  skeleton  CAT 
example  program  to  develop  a  tailored  application  program  to 
perform  specific  processes.  The  ZOC-14  DAS  application 
program,  was  developed  using  the  CAT  Programming  Package,  to 
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Figure  27  HP14753A  CAT  Programming  Package 

perform  ZOC  data  collection,  reduction,  and  storage  titled 
"SCAN_ZOC_05"  (Appendix  A,  Figure  A17) . 

The  CAT  programming  package  provides  the 
capability  of  integrating  selected  I/O  cards  into  a  unique 
function  that  combines  the  cards'  capabilities  into  one 
function.  Two  particular  applications  used  here  combined  the 
A/D  and  Memory  Cards  into  a  "Buffer"  function,  and  the  Pacer 
and  Counter  Cards  into  a  "Timer"  function. 

The  Buffer  function  performs  the  task  of 
collecting  analog  data  at  a  collection  rate  controlled  by  an 
external  trigger  device,  converts  the  analog  data  to  digital 
format,  and  temporarily  stores  the  data.  The  Buffer  function 
allows  the  high  speed  data  collection  rate  of  500  KHz,  which 
is  only  limited  by  the  A/D  conversion  rate.   Figure  28  is  a 
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schematic  of  the  wiring  that  links  the  A/D  and  Memory  Cards 
together  through  the  HP1417A  Chaining  Cable  (Figure  21) . 
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Figure  28   Buffered  A/D  Function  Schematic 

The  Timer  function  provides  a  square  wave  trigger 
pulse  of  a  specified  pulse  width  and  a  specified  number  of 
repetitions.  The  pulse  width  determines  the  data  collection 
rate.  In  the  present  application,  the  repetition  number 
divided  by  32,  the  number  of  ports  on  the  ZOC-14,  determines 
the  number  of  scans  the  ZOCs  undergo.  The  repetition  number 
is  therefore  always  a  multiple  of  32.  Figure  29  is  the 
schematic  of  the  wiring  that  links  the  Counter  and  Pacer  Cards 
together.  The  edge  connectors  and  cables  which  were  made  to 
implement  the  wiring  shown  in  Figure  29,  can  be  seen  in 
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Figure  29  Timer  Function  Schematic 

Figure  23. 

The  CAT  programming  process  requires 
identification  of  the  installed  I/O  cards  and  their  initial 
function  settings  through  a  user-specified  "Configuration 
File".  The  file  provides  the  flexibility  of  writing  a  general 
application  program  that  works  readily  with  various 
configurations  of  the  HP6944A(s) .  Each  configuration  file  is 
unique  to  each  HP6944A  hardware  configuration8. 


8   The  Configuration  File  must  accurately  reflect  the 
HP6944A(s)  I/O  card  configuration  or  a  software  error  occurs. 
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Print-outs  of  the  ZOC-14  DAS  program  Configuration 
File  are  listed  in  Figure  Al9.   [Note  that  the  names  listed 
in  Figure  Al  are  variables  used  by  the  program  SCAN_ZOC_05. ] 
b.   DAS  Program  Design 

(1)  Program  Design  Features 

The  ZOC-14  DAS  Program  SCAN_ZOC_05 
incorporated  several  design  features  intended  to  obtain  a 
user- friendly  data,  collection  program.   The  program 

♦  has  full  control  of  the  ZOCs  and  CALSYS2000  as  interfaced 
with  the  HP9000  and  HP6944A 

♦  utilizes  the  Zero  Operate  Calibrate  principle  for  data 
collection  from  the  ZOCs 

♦  uses  keyboard  function  keys  to  allow  selection  of  various 
operations  within  the  program 

♦  creates  and  identifies  data  files  automatically  based  on 
the  type  of  data,  date,  and  run  number 

♦  offers  data  file  storage  on  hard  and  floppy  disk  drives. 

(2)  Data  Files 

Three  different  data  files  are  used  when 
acquiring  data  from  each  ZOC-14.  Implementation  of  the  Zero, 
Operate  and  Calibrate  procedure  required  the  data  acquisition 
process  to 

♦  collect  and  store  raw  pressure  data  from  the  ZOCs 


Reference  15  provides  details  on  Configuration  File 
creation  and  alterations. 
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♦  collect  and  store  calibration  pressure  data  from  the  ZOCs 
and  corresponding  applied  pressure  standard  data  from  the 
CALMOD  2  000 

♦  reduce  the  raw  pressure  date  using  calibration  curves  and 
store  the  reduced  pressure  data. 

The  program  uses  BDAT  type  files  with  Integer 
and  Real  number  formats10.  The  raw  data  file  is  in  Integer 
(2 -byte)  format,  with  each  record  corresponding  to  an  output 
voltage  value. 

The  calibration  file  uses  a  Real  number  (8- 
byte)  format  storing  data  from  a  33  row  by  11  column  array11. 
Each  row  (1-32)  corresponds  to  a  ZOC  Port.  The  Zero  (0)  row 
contains  ZOC-specific  parameters.  Columns  4-10  in  the  Zero 
row  contains  pressure  values  measured  by  the  CALMOD  Pressure 
Standard  for  each  of  the  seven  calibration  settings.  Columns 
4-10  (rows  1-32)  contain  voltages  output  by  the  ZOC  for  each 
of  the  calibration  pressures  applied  through  the  CAL  and  REF 
manifolds.  Columns  0-3  (rows  1-32)  contain  calibration  curve 
fit  coefficients  for  a  third  order  polynomial.  These 
coefficients  are  derived  using  the  Least  Squares  numerical 
curve  fit  method  using  the  recorded  voltages  (rows  1-3  2) 
plotted  against  the  applied  (standard)  calibration  pressures 
(row  zero) .  Each  row  in  the  array  corresponds  to  a  record  in 
the  calibration  data  file  consisting  of  8x3  3  bytes. 


10  Refer  to  Ref.  6,  chp  7 ,  for  details  and  advantages  of 
BDAT  format  files  compared  to  ASCII  files. 
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Refer  to  Figure  A17,  lines  2350  to  2440. 
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The  reduced  data  file  uses  a  Real  number  (8- 
byte)  format,  storing  data  from  a  n-row  by  3  3  column  array. 
Each  row  corresponds  to  one  scan  of  a  ZOC.  The  first  column 
(0)  stores  the  nth-scan  number.  Columns  1-3  2  correspond  to 
the  output  of  each  ZOC  port  converted  to  pressure  units 
(inches  of  mercury)  .  Each  array  row  occupies  a  record  of  8x33 
bytes  in  the  reduced  data  file. 

Figure  30  provides  a  sample  listing  of  the 
data  files  created  in  acquiring  data  using  three  (3)  ZOCs  in 
one  (1)  acquisition  cycle. 


:, 700, 0,1 

VOLUME  LABEL: 

DATA 

FILE  NAME 

PRO 

TYPE 

REC/FILE 

BYTE/REC 

ADDRESS 

DATE 

TIME 

ZW1203161 

BOAT 

97 

2 

392 

18-May-92 

14:34 

ZW2203161 

BOAT 

97 

2 

394 

16-May-92 

14 

:34 

ZW3203161 

BDAT 

97 

2 

396 

lB-May-92 

14 

■34 

ZC12031S1 

BOAT 

33 

88 

398 

16-May-92 

14 

53 

ZC2203161 

BDAT 

33 

88 

811 

16-May-92 

14 

55 

ZC3205161 

BDAT 

33 

88 

624 

16-May-92 

14 

55 

ZR1205161 

BDAT 

3 

264 

637 

16-May-92 

14 

55 

ZR2203161 

BDAT 

3 

264 

642 

18-May-92 

14 

55 

ZR3203161 

BDAT 

3 

264 

647 

16-May-92 

14 

55 

Figure  30  ZOC-14  DAS  Data  File  Listing 

Each  data  file  name  uses  the  format, 

<ZW><ZOC  fxDatexRun  #> 
"ZW"  identifies  raw  data  files.   ("ZC"  identifies  calibration 
data  files,  and  "ZR"  identifies  reduced  data  files) .  The  ZOC 

#  is  for  ZOCs  1-3.  The  format  for  the  date  is  YMMDD.  The  Run 

#  has  values  1-99.   Hence,  for  example,  the  file  ZR1205161 
holds  reduced  data  for  ZOC  #1  collected  on  May  16,  1992  during 
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Run  #1.  The  REC/FILE  column  shows  three  records,  identifying 
that  three  scans  of  data  for  the  32  ports  were  collected.  The 
BYTE/REC  column  identifies  2  64  bytes  for  each  record  (scan) , 
corresponding  to  the  8x33  bytes  for  the  row  format  addressed 
in  the  previous  paragraph. 

(3)  Program  Functional  Flow  Process 

The  program  SCAN_ZOC_05  follows  the  functional 
flow  process  illustrated  in  Figure  A2  through  Figure  A16  in 
Appendix  A.  The  program  relies  on  extensive  use  of 
subroutines  to  maintain  program  architectural  simplicity 
through  use  of  the  CALL  statement.  The  option  to  use  one  to 
three  ZOCs  requires  only  the  repetitious  use  of  the  different 
subroutines . 

Function  keys  are  used  for  program  control. 
The  main  program  is  segmented  into  blocks.  Each  block  or  set 
of  blocks  is  initiated  by  a  function  key  (ie.  fl  through  f8) . 
The  "GOTO  Hold"  statement  executes  a  continuous  loop  sequence 
which  is  only  interrupted  by  a  function  key  selection,  thus 
providing  the  mechanism  for  program  control. 

The  storing  of  raw  pressure  data  and 
calibration  data  onto  the  hard  drive  allows  repeated  data 
collection  runs.  The  data  reduction  routine  is  function  key 
selected  and  can  be  performed  after  each  data  collection  run, 
or  at  any  later  time.   The  program  prompts  the  user  for  data 
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file  name  information  when  data  reduction  is  not  selected 
immediately  following  a  data  collection  run. 
c.   DAS  Program  Use 

(1)  HP9000  Operation  and  Rudimentary  Commands 

The  HP9000  is  the  controlling  unit  for  the 
ZOC-14  DAS.  Its  operation  is  similar  to  that  of  a  desk  top 
computer  system  with  no  complex  initialization  or  "boot-up" 
process. 

The  HP9000  has  its  own  built-in  boot-up 
routine  as  an  integral  part  of  BASIC  [Ref.  4].  The  boot-up 
process  addresses  the  "SYSB51. HP-UX"  file  on  the  hard  drive's 
root  directory  for  loading  various  function  drivers  called 
"Binaries".  Integration  of  the  HP14753A  CAT  programming 
package  in  the  present  work  required  modification  to  the 
SYSB51  file  to  provide  sufficient  RAM  space  to  operate  the  CAT 
programs12. 

The  boot-up  process  is  initiated  when  power  is 
applied  to  the  HP9000.  The  CRT  begins  displaying  a  series  of 
screens  during  the  boot-up.  With  the  modification  which  was 
made  to  the  SYSB51  file,  completion  of  the  boot-up  process  now 
gives  the  screen  display  shown  in  Figure  31,  which  is 
generated  by  the  AUTOST  program  file.   This  screen,  referred 


12   Refer  to  Ref.  4,  chp  5  and  Ref.  15,  pg.  1-5,  for 
details  on  the  SYSB51  file  modifications. 
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to  as  the  "Main  Menu",  provides  a  function  key  selection  menu 
to  access  the  operations  available  on  the  HP9000. 


HP9000  Series  300  Computer  Data  Acquisition  System 

Item:  Select  Function  Key 

Turbocharger  Lab  (*)  Fl 

Transonic  Compressor  Lab  (*)  F2 

Turbine  Design  Programs  (*)  F3 

Multi-Programmer  Opertion  (HP6944A)  F4 

Work  directory  (*)  F5 

Backup  Files  F6 
HP9000  Program  Listing  and  Information   F7 

Exit  Menu  F8 

Note:  Binaries  required  for  HP14753A  CAT  program  are  loaded 
to  operate  the  HP6944A  Multi -programmer . 
Additional  binaries  are  loaded  with  selection  (*). 

If  Error  2  occurs:  Memory  overflow;  reboot  system  using 
SYSBOOT  statement  and  reselect  desired  directory. 


User  1   Caps   Command 
TURBO   COMPRESS  DESIGN   HP14753A    WORK     BACKUP   PROGRAM  EXIT 
CHARGER  LAB  CAT        DIR  LISTINGS  MENU      * 


Figure  31  HP9000  Initial  CRT  Screen  Display 

Selection  of  the  "F8"  function  key  clears  the 
screen  and  places  the  user  in  the  root  directory.  At  any  time 
when  the  term  "idle"  is  displayed  in  the  lower  right  corner  of 
the  CRT  screen,  there  are  no  programs  in  execution,  and  the 
user  can  make  keyboard  command  entries. 

There  are  five  essential,  rudimentary  commands 
that  the  user  needs  to  know  to  use  BASIC13.  These  commands 
are  LOAD,  RUN,  CAT,  MSI,  and  RE-STORE.  The  LOAD  command  will 
load  the  program  which  is  named  between  quotes  into  the  HP9  000 
RAM.  RUN  will  execute  the  program  currently  in  RAM.  CAT  will 


13   It  is  recommended  that  the  user  reviews  Ref.  13  and 
14  for  an  operational  understanding  of  BASIC. 
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list  to  the  CRT  screen  all  the  files  on  the  current  storage 
drive  and  directory.  MSI  ("MASS  STORAGE  IS")  will  select  a 
directory  and/or  drive  to  be  what  is  named  between  quotes. 
The  RE-STORE  command  copies  the  program  in  the  RAM  to  the  file 
on  the  currently  named  MSI.  Caution  must  be  applied  when 
using  the  RE-STORE  command.  This  command  will  write  over  any 
previously  existing  program  with  the  same  name,  resulting  in 
the  loss  of  the  previous  program. 

Return  to  the  Main  Menu  is  possible  from  any 
directory  on  the  hard  drive.  Located  on  the  root  directory  of 
the  hard  drive  is  a  program  called  "RETURN_MAIN" .  Load  the 
program  by  typing  the  following  commands: 

* 

♦  LOAD  "/RETURN_MAIN" ,  followed  by  the  <Enter>  key 

♦  RUN,  followed  by  the  <Enter>  key 

The  "/"  character  identifies  the  root  directory.   The  above 
two  steps  apply  for  loading  and  executing  any  program. 
(2)  Operating  the  ZOC-14  DAS  Program 

The  ZOC-14  DAS  Program  uses  function  keys  and 
selective  keyboard  data  entries.  The  following  steps  should 
be  followed  to  operate  the  ZOC-14  DAS. 

1.  Main  Menu:  Depress  function  key  F4  (Figure  31)  to 
call-up  the  HP  Multi-programmer  Operating  Menu. 

2.  HP6944A  Operation  Menu: '  Depress  function  key  Fl  to 
call-up  the  ZOC-14  Modules  Menu. 
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3.    Zoc  Electronic   Pressure  Module  Operation  Menu: 
Figure  32  is  displayed. 


Zoc  Electronic  Pressure  Module  Operation  Menu 

Item:  Select  Function  Key 

Scan  1-3  ZOC-14  Modules  (32  ports  ea)  Fl 

Read  reduced  data  from  ZOC- 14  module  F2 

Plot  reduced  data  from  ZOC- 14  module  F3 

Read  CALSYS  2000  calibration  pressures  F4 

Read  tabulated  calibration  data  F5 

Plot  Calibration  data  F6 

HP6944A  Main  Menu  F7 

Exit  Menu  P8 


User  1   Caps   Command 
SCAN  1-3  READ  ZOC  PLOT  ZOC  READ        TABULATE  PLOT  CAL  HP6944A  EXIT 
ZOCS     DATA     DATA     CALSYS20    CAL  DATA  DATA     MENU     MENU      * 


Figure  32   Zoc  Electronic  Pressure  Module  Operation 
Menu 


4.  Check:  Ensure  that  the  CALSYS2000,  ZOC  Enclosure  and 
HP6944A  are  properly  connected  and  energized. 

5.  Check:  Ensure  that  the  nitrogen  gas  supply  is 
connected  to  the  CALSYS2  000  and  about  9  0  psi  is  set 
on  the  regulator. 

6.  CALSYS2000  Regulators:  Set  the  High,  Medium,  and  Low 
Pressure  regulators  on  the  CALSYS2000.  The  three 
pressure  values  should  be  evenly  distributed  within 
the  span  of  the  ZOC's  positive  pressure  rated  range. 
Precise  settings  are  not  critical.  Since  50  psid 
and  15  psid  ZOCs  are  used  presently,  set  the 
regulators  between  0-30.6  inches  of  mercury  to  avoid 
over  pressurizing  the  15  psid  ZOCs. 

7.  CALSYS2000  Verification:  Select  function  key  F4 
(Figure  32)  to  cycle  the  CALSYS2000  and  verify  the 
pressure  settings.  (Note:  This  should  be  done 
whenever  the  CALSYS2000  is  first  energized  to  clear 
the  RS-232C  of  noise)  .  Completion  of  this  step 
returns  the  HP9000  to  the  ZOC  operation  menu. 
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8.  Load  SCAN_ZOC_05:  Select  function  key  Fl  (SCAN 
ZOCS)  from  the  ZOC  operation  menu  to  initiate  ZOC 
scanning  program  SCAN_ZOC_05. 

9.  Introduction:  A  series  of  screen  displays  occur 
while  SCAN_ZOC_05  is  loading.  The  "Introduction" 
screen  (Figure  33)  is  displayed  indicating  that  the 
program  is  waiting  for  a  function  key  input. 


Introduction.   Program  SCAN_ZOC_05: 

-  Scans  1-3  Zoc-14  Modules  simultaneously  (32  pressure  sensing  ports  each) 

-  Uses  Zero  Operate  Calibrate  (ZOC)  principal: 

-  Collects  raw  pressure  data  (Zero  Operate) 

-  Collects  calibration  data  (Calibrate) 

-  Reduces  and  stores  data  on  selected  hard  or  floppy  drive. 

-  CALSYS2000  Calibration  Module  used  for  the  reference  pressure  standard. 

-  Raw  pressure  data  reduced  using  calibration  data  from  CALSYS2000 
and  Zocs  in  the  calibration  mode. 

Input  variables:  Hard  and  Floppy  drive  for  data  storage 
Sample  frequency  per  port  (1-50,000  Hz) 
Samples  per  Port  (1-1021) 
Number  of  Zocs  and  their  capacity 

Output  files:  Raw  data  ->  ZW(Zoc#)(Date  YMMDD)(Run#) 
Calibration  ->  ZC(Zoc#)(Date  YMMDD)(Run#) 
Reduced  data  ->  ZR(Zoc#)(Date  YMMDD)(Run#) 

Select  F2  key  for  Key  Menu,  F3  for  system  inputs,  or  F6  for  data  reduction. 


Intro    Key      Set-up 
Menu 


User  1 

Caps    Corrmand 

Data 

Collect 

Reduce    List 

Exit 

Preps 

Data 

Data     Copy 

* 

Figure  33  SCAN_ZOC_05  Introduction  Screen 


10.  Set-up  Selection:  Select  function  key  F3  (Set-up)  to 
initialize  the  program.  The  "Set-up"  screen  will  be 
displayed.  (Note,  selection  of  F4  or  F5  at  this  time 
results  in  an  error  message  and  asks  for  re- 
selection.  ) 

11.  Set-up  Inputs:  The  user  will  be  prompted  for  the 
designated  data  storage  drive  (select  : ,700, 0,1  if 
equipped)1*,  data  acquisition  rate,  the  number  of 


1A  The  program  operates  on  multi-partitioned  hard  drives. 
TPL's  HP9153C  Disk  Drive  has  two  partitions.  Drive  :,700  is 
the  main  drive  and  is  in  HFS  format  with  10  Mbytes  of  space. 
Drive  :, 700, 0,1  is  the  second  "DATA"  drive  and  is  in  LIF 
format  with  3  0  Mbytes  of  space.  LIF  format  has  faster  data 
transfer  rates. 
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12. 


samples  per  port  (scans)  of  data  to  be  taken,  and 
the  number  of  ZOCs  to  be  used.  For  each  ZOC,  the 
user  will  be  prompted  for  the  CALMOD  to  be  assigned 
to  the  ZOC.  Currently  only  one  CALMOD  is  installed. 
Enter  1  for  all  three  ZOCs.  When  two  CALMODs  are 
installed,  enter  1  or  2  to  the  applicable  ZOC 
according  to  the  CALMOD  regulator  settings. 

Set-up  Display:  The  System  Set-up  screen 
(Figure  34)  is  updated  as  entries  are  made.  The 
program  searches  the  data  drive  for  data  files  and 
creates  the  next  sequential  data  file  name  for  the 
current  date. 


System  Set-up. 

Data  acquisition  rate:                          10000  Hz 

Number  of  samples  per  port:                      3 

Number  of  Zocs  to  be  scanned:                    3 

Total  raw  data  acquisition  time:                 .0093   sec. 

Total  calibration  data  acquisition  time:          10.5155  sec. 

Data  storage  disc  ->:, 
Data  will  be  stored  in 

700,0.1 
the  following  files  beginning  with  Run  #  1 

Raw  data  file: 
Calibration  data  file: 
Reduced  data  file: 

ZW1204291 
ZC1204291 
ZR1204291 

Raw  data  file: 
Calibration  data  file: 
Reduced  data  file: 

ZW2204291 
ZC2204291 
ZR2204291 

Raw  data  file: 
Calibration  data  file: 
Reduced  data  file: 

ZW3204291 
ZC3204291 
ZR3204291 

Figure  34   SCAN_ZOC_05  System  Set-up  Screen 


13.  Data  Collection  Preparations:  Select  function  key 
F4  (Data  Preps)  for  data  collection  preparations 
(Figure  35) . 

14.  Collect  Data:  .  Select  function  key  F5  (Collect  data) 
to  begin  data  collection.  The  CRT  will  display  the 
results  of  the  collection  as  illustrated  in 
Figure  36. 

15.  Data  Reduction:  To  reduce  data,  select  function  key 
F6  (Reduce  Data) .  To  make  changes  to  the  Set-up, 
select  function- key  F3 .  To  conduct  another  raw  data 
collection  run,  select  function  key  F4 .   To  exit  the 
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program,  select  function  key  F8 .   Selection  of  F6 
results  in  the  display  illustrated  in  Figure  37. 

16.  List/Copy  Files:  Selection  of  function  key  F7  (List 
Files)  will  list  all  current  data  files  on  the 
storage  drive  as  illustrated  in  Figure  38.   The  user 


Data  Collection  Preparation. 

Check  list: 

-  HiScan  CALSYS2000  on-line 

-  Calibrator  supply  line  valve  is  OPEN  (on  back  of  Hi  scan) 

-  CALSYS2000  (Nitrogen)  pressure  source  at  90  psi 


Select  F3  to  start  data  acquisition 


Intro 


User  1   Caps   Command 

Key 

Set-up 

Data 

Collect 

Reduce   List     Exit 

Menu 

Preps 

Data 

Data     Files             * 

Figure  35  SCAN_ZOC_05  Data  Preparations  Screen 

will  be  prompted  if  he  wants  to  store  all  the  listed 
files  to  the  floppy  drive  : ,700,1.  Selection  of 
"Yes"  results  in  the  over-writing  of  the  old  files 
with  the  same  file  name. 

17.  Exit:  Select  function  key  F8  (Exit)  to  exit  the 
SCAN_ZOC_05  program  and  return  to  the  ZOC  operation 
menu  (Figure  32) . 

3.   Data  Analysis  and  Auxiliary  ZOC-14  Programs 
a.   Utility  Programs 

The  ZOC  operation  menu  (Figure  32)  displays  several 
utility  programs  which  were  written  for  system  analysis  and 
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storage  drive  file  ZW1204291 
storage  drive  file  ZW2204291 
storage  drive  file  ZW3204291 


.700,0,1 
,700,0,1 
,700,0,1 


Collecting  raw  pressure  data. 

Raw  data  collection  complete. 

Raw  pressure  data:  Run#  1  ,  Zoc*  1 
Raw  pressure  data:  Run#  1  ,  Zoc#  2 
Raw  pressure  data:  Run#  1  ,  Zocijt  3 

Collecting  calibration  data. 

Calibration  data:  Run#  1  ,  Zoc#  1  ,  storage  drive  file  ZC1204291 :, 700,0, 1 

Calibration  data:  Run#  1  ,  Zoc#  2  ,  storage  drive  file  ZC2204291 : , 700 , 0, 1 

Calibration  data:  Run*  1  ,  Zoc#  3  ,  storage  drive  file  ZC3204291: , 700, 0, 1 

Calibration  data  collection  complete. 

***  Secure  Calibrator  pressure  valve  to  conserve  Nitrogen  *** 

CALSYS2000  Calibration  modes  and  pressures  (in  Hg): 


Mode 

Zoc  #1 

Zoc  #2 

Zoc  #3 

NH 

-30.1544 

-30.1544 

-30.1544 

NM 

-17.9976 

-17.9978 

-17.9976 

ML 

-7.3819 

-7.3819 

-7.3819 

ZO 

.0034 

.0034 

.0034 

PL 

7.4005 

7.4005 

7.4005 

PM 

18.0194 

18.0194 

18.0194 

PH 

30.2072 

30.2072 

30.2072 

Select  F4  for  another  data  run,  or  F6  to  reduce  data 


Intro 


Key 

Menu 


Set-up   Data 
Prepa 


User  1   Caps   Command 
Collect  Reduce   List     Exit 
Data     Data     Files  * 


Figure  36   SCAN_ZOC_05  Data  Collection  Screen 


data  display.  These  utility  programs,  listed  in  Appendix  A, 
are  tailored  for  use  with  the  SCAN_ZOC_05  data  file 
formats15. 

b.   ZOC-14  Utility  Program  Application  Examples 

An  air  source  regulated  to  3  0.0  inches  of  mercury 
gauge  was  used  to  verify  the  acquisition  hardware  and 
software."  Application  programs  were  written  to  analyse  the 
results. 


15 


Data  files  created  from  previous  versions  of  the 
SCAN_ZOC  programs  listed  in  Appendix  B  are  not  compatible  with 
the  listed  utility  programs. 
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Calibration  and  Raw  data  reduction  and  storage. 

Current  files  on  storage  disc  :,  700, 0,1  for  date  20429 

ZW1204291  ZC1204291 
ZW2204291  ZC2204291 
ZW3204291   ZC3204291 

Data  reduction:  Run#  1  ,  Zoc#  1 

Calibration  data  reduced  and  transferred  to  ZC1204291 

Raw  data  reduced  and  transferred  to  ZR1204291 

Data  reduction:  Run#  1  ,  Zoc#  2 

Calibration  data  reduced  and  transferred  to  ZC2204291 

Raw  data  reduced  and  transferred  to  ZR2204291 

Data  reduction:  Run#  1  ,  Zoc#  3 

Calibration  data  reduced  and  transferred  to  ZC3204291 

Raw  data  reduced  and  transferred  to  ZR3204291 

Select  F3  reinitialize  set-up  for  data  collection,  or  F8  to  Exit 


Intro 


Key 

Menu 


Set-up 


User  1 

Command 

Data 

Collect 

Reduce   List 

Exit 

Preps 

Data 

Data     Files 

* 

Figure   37      SCAN_ZOC_05   Data  Reduction  Screen 


Li  at  Raw,  Calibration  and  Reduced  data  files. 
Data  storage  drive  name  ->   :, 700, 0,1 
Current  files  on  storage  disc  for  date  20429 
ZW1204291   ZC1204291    ZR1204291 
ZW2204291   ZC2204291   ZR2204291 
ZW3204291   ZC3204291   ZR3204291 


Select  F2  to  return  to  menu,  or  F8  to  Exit 


Intro 


Key 

Menu 


Set-up 


User  1 

Command 

Data 

Collect 

Reduce   List 

Exit 

Preps 

Data 

Data     Files 

* 

Figure  38   SCAN_ZOC_05  List  Files  Screen 

The  program  "READ_ZOC"  (Figure  A18)  is  selected  by 
function  key  F2  (READ  DATA).  The  program's  results  are 
illustrated   in   Figure   39    for   ZOC   #3    (rated   at   15   psid) .      The 
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Period  between  samples  (sec):  .0001 

Sample  collection  rate  (Hz):  10000 

Number  of  samples  per  port:  3 

Length  of  data  run  (sec):  .0093 

Data  Tabulation  for  Port  #  1  from  file:  ZR3204291 

Sample      Time  (sec)      Pressure  (Hg.) 

1  0,00000         29.62346 

2  .00320         29.56425 

3  .00640         29.62346 

Data  Tabulation  for  Port  #  2  from  file:  ZR3204291 

Sample  Time  (sec)  Pressure  (Hg.) 

1  .00010  29.62771 

2  .00330  29.62771 

3  .00650  29.62771 

Enter  port  number  for  data  (0-Exit): 


User  1    Caps    Command 
EDIT     Continue   RUN    SCRATCH     LOAD  ""   LOAD  BIN  LIST  BIN  RE-STORE 


Figure  39  READ_ZOC  Data  Results 

displayed  pressure  is  the  reduced  pressure  value  calculated 
from  the  SCAN_ZOC__05  program.  The  output  pressure  is  derived 
using  the  recorded  transducer  output  voltage  and  the  curve 
fitted  to  the  calibration  data  for  the  identified  port.  The 
output  values  are  seen  to  be  within  1.3%  of  the  applied 
pressure. 

The  program  "PLOT_DATA"  (Figure  A19)  is  selected  by- 
function  key  F3  (PLOT  DATA)  .  The  results  from  ZOC  #3  are 
displayed  in  Figure  40  and  Figure  41. 

The  program  "CAL_READ_PR1"  (Figure  A2  0)  is  selected  by 
function  key  F4  (READ  CALSYS20) .  The  results  are  displayed  in 
Figure  42. 

The  program  "TABULATE_ZOC"  (Figure  A21)  is  selected  by 
function  key  F5  (TABULATE  CAL  DAT) .  This  program  displays  the 
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Program  plots  reduced  data  from  file  ZR3204291 

Statistics  for  Zoc  #  3 

Period  between  samples  (msec):  .1 

Sample  collection  rate  (Hz):   10000 

Number  of  samples  per  port:    3 

Length  of  data  run  (msec):      9.5 

Data  point  can  be  plotted  as  a  continuous  line,  or  squares. 

Note:  Wait  for  symbol  '**  in  lower  right  corner  of  CRT  to  chang« 
to  a  '-'  before  pressing  <ShiftxDump  Graph> 


EDIT 


Continue   RUN    SCRATCH 


LOAD 


User  1   Caps    Command 
LOAD  BIN  LIST  BIN  RE-STORE 


Figure  40     PLOT_DATA  Alpha  Screen  Display 


Reduced   Date  Plot   o4    Port*    1 

38 

32 

0                                                a 

» 

*% 

:? 

e 
H 

M 

0 
c. 
3 

a 
• 
o 

k 

a 

it 

• 

■ 

4 

• 

■ 
1 

123             4             3(7             1111 

Tine    (nseo) 

« 

Figure  41      PLOT  DATA  Graphic  Screen  Display 


first  three  reduced  data  samples  of  selected  ports,  and  the 
associated  calibration  data  for  each  selected  port.  Figure  43 
displays   the   results    for  ZOC   #3. 
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Program: 

CAL_ 

_READ_PR1 

This 

program  sequentially  sets  the  CAL2000  calibration 

nodai 

and 

reads  the  corresponding  internal  Pressure  Standard 

for  that  mod* . 

PH 

Positive  high  range  pressure  to  CAL(+) 

PM 

Positive  mid  range  pressure  to  CAL(+) 

PL 

Positive  low  range  pressure  to  CAL(+) 

ZO 

CAL(+)  &  REF(-)  connected  together 

NL 

Negative  low  range  pressure  to  REF(-) 

NM 

Negative  mid  range  pressure  to  REF(-) 

NH 

Negative  high  range  pressure  to  REF(-) 

CAL2000: 

Calibration  modes  and  pressures. 

Mode 

Pr 

assure  (in  Hg) 

NH 

30.1606 

NM 

17.99*5 

NL 

7.3788 

ZO 

.0034 

PL 

7.3912 

PM 

18.0194 

PH 

30.2072 

Figure  42      CAL_READ_PR1  Results 


Program  tabulates  Zoc  pressures  and  calibration  data  from 

tha  SCAN_ZOC_03  program. 

Reduced  Data  Tabulation  at  a  sample  rata  of  10000  Hz 


Port  Sample  1 

1  29.623 

2  29.628 

3  -.414 

4  -.495 


Sample  2  Sample  3 

29.564  29.623 

29.628  29.628 

-.414  -.351 

-.425  -.425 


Calibration  Data  Tabulation  for  Zoc#  3 


Pressure  voltage  readings: 


Port    NH 

NM 

NL 

0  -30.154 

-17.998 

-7.382 

1   -2.194 

-1.310 

-.521 

2   -2.594 

-1.669 

-.850 

3   -1.853 

-1.018 

-.250 

4   -1.770 

-1.036 

-.362 

ZO 
.003 
.040 
-.276 
.272 
.101 


PL 
7.401 
.723 
.450 
.909 
.673 


PM 
18.019 
1.688 
1.478 
1.820 
1.485 


PH 
30.207 
2.704 
2.549 
2.770 
2.320 


Calibration  polynomial  coefficients  for  Zoc#  3 


Port        A0 

1  -1.00116186204 

2  2.45870376346 

3  -3.96668335674 

4  -1.98202140047 


Al 

11.8955586742 
11.1095966035 
12.8254266665 
14.2260022322 


A2 

-.435562698234 
-.349715337703 
-.523187753647 
-.645728820628 


A3 

.106534210924 
.0940454333066 
.119575469008 
.20262038018 


Figure  43      TABULATE_ZOC  Results 

The  program  "LS_PLOTn  (Figure  A2  2)  is  selected  by 
function  key  F6  (PLOT  CAL  DATA) .  Figure  4  4  displays  the 
calibration     data     with     voltage     verses     CALMOD     calibration 
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Laoal    Squaro    Plot    at    CflL2900  Collbrotlon    (Port# 
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Figure  44  LS_PLOT  Graphic  Results 

pressure  (squares) ,  and  the  curve  fitted  to  the  collected  data 
by  the  least  squares  method  (continuous  line) .  The  results 
are  from  port  #1  on  ZOC  #3. 
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III.   DISCUSSION 

A.   Upgraded  Capabilities 

The  ZOC-14  DAS  provides  the  capability  to  perform  fully 
automatic  high-speed  pressure  data  aquisition,  data  storage 
and  reduction.  For  the  Gas  Dynamics  Laboratory  (GDL) ,  this 
upgraded  capability  allows  very  short  run-times  in  the 
transonic  and  supersonic  wind  tunnels,  resulting  in  greatly 
reduced  electrical  power  consumption  by  the  laboratories  air 
compressors  and  the  elimination  of  delays  between  wind  tunnel 
tests.  Additionally,  wind  tunnel  models  will  have  a  longer 
useful  life.  The  shorter  run  times  will  reduce  model  erosion 
and  the  net  effect  is  a  reduced  cost  to  operate  the  wind 
tunnels  and  to  maintain  models. 

The  HP9000  now  serves  as  the  controller  for  the  DAS • s  in 
each  of  the  three  laboratories  comprising  TPL  and  GDL.  Each 
DAS  includes  Hewlett  Packard  HP-IB  compatible  instruments  and 
the  HG-78K  Scanivalve  Controller.  Low  speed  pressure  data 
acquisition,  using  the  HG-78K  to  operate  the  Scanivalve  rotary 
port  pressure  sensing  unit,  is  retained.  However,  for 
turbomachinery  measurements,  phase-lock  data  acquisition  using 
TPL's  Digital  Programmable  Timing  Device  (or  PACER),  can  not 
yet  be  performed  using  the  HP9000  to  replace  the  HP1000  [Ref . 
24].   TPL's  PACER  is  electrically  hard-wired  into  the  HP1000 
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as  an  I/O  device.  However,  the  integration  of  the  HP9000  and 
HP6944A,  as  demonstrated  in  the  ZOC-14  DAS,  is  known  to 
provide  the  interface  capability  to  operate  the  PACER. 

Temperature  and  low-speed  pressure  measurement  data 
acquisition  and  processing  using  the  HP9000  has  been 
demonstrated  in  turbocharger  performance  mapping  laboratories 
and  transonic  wind  tunnel  thesis  research  [Ref.  25] 16.  The 
HP9000  was  shown  to  provide  improved  data  storage  handling  and 
display  capabilities  (over  the  HP1000  system)  using  the  HP9153 
series  hard/floppy  disk  drive  and  HP7475A  plotter. 

Development  of  the  ZOC-14  DAS  served  to  identify  the 
programming  and  integration  requirements,  and  the  capabilities 
of  the  HP9000  and  HP6944A  as  a  subsystem.  The  HP9000/HP6944A 
as  a  controller  and  data  acquisition  sub-system  provides  to 
TPL  and  GDL  the  potential  for  extension  in  several  prospective 
applications. 

B.   ZOC-14  DAS  Outstanding  Issues 

The  ZOC-14  DAS  development  is  not  fully  complete.  Several 
hardware,  software,  and  performance  issues  need  to  be 
resolved,  namely; 

♦  Hardware:  The  CALSYS2000  is  using  only  one  CALMOD  to 
provide  calibration  pressures  for  a  specific  ZOC  operating 
range.   A  second  CALMOD  is  required. 


16    Appendix  D,  Figures  D3-D6  are  HP9000  controlled 
Turbocharger  Performance  Mapping  and  data  display  programs. 
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♦  Hardware:  It  was  not  possible  to  set  the  "PURGE"  mode  to 
clear  pressure  sensing  lines  using  nitrogen  gas  supply. 

♦  Software:  SCAN_ZOC_05  uses  a  "set"  1.5  sec  time  delay  to 
account  for  calibration  pressure  stabilization  during  the 
calibration  process,  vice  a  technique  to  monitor  the 
calibration  pressure  and  digitize  when  found  to  be  stable. 

♦  Performance:  The  maximun  data  sampling  rate  acheivable 
with  the  ZOC  modules  needs  to  be  verified. 

♦  Performance:  A  data  error  analysis  needs  to  be  carried 
out. 

♦  Performance:  The  calibration  of  the  CALMOD  Pressure 
Standard  needs  to  be  verified. 


Some  elaboration  of  each  of  these  issues  follows. 

The  use  of  the  present  one  CALMOD  results  in  only  the  15 
psid  ZOC  being  calibrated  over  its  full  pressure  range  when  15 
psid  and  50  psid  ZOCs  are  used  in  the  DAS.  The  50  psid  ZOC 
must  be  used  without  the  15  psid  ZOCs  if  they  are  to  be 
calibrated  and  used  over  their  full  range.  This  would  reduce 
the  pressure  data  measurement  availability  from  9  6  (3x32)  to 
32  ports.  Installation  of  a  second  CALMOD  would  allow 
independent  calibration  of  the  15  psid  and  50  psid  ZOC 
modules.  The  program  SCAN_ZOC_05  incorporates  the  steps  to 
use  two  CALMODs,  and  requires  no  modifications. 

The  PURGE  mode  is  set  by  providing  control  gas  through 
both  the  Px  and  CAL  control  lines  as  illustrated  in  Figure 
817.  Currently,  the  required  control  gas  pressure  is  not 
provided  by  the  PSC  when  the  appropriate  command  is  sent  from 


17  Refer  to  Ref.  17,  dwg  17750,  PNEUMATIC  DIAGRAM  OF  PSC, 
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the  HP9000  to  the  CALMOD.  The  commands  to  set  the  PURGE  mode 
are  "aEC  8  Y"  followed  by  "aEC  10  N"  to  set  the  solenoids  in 
the  PSC. 

The  calibration  process  requires  a  stabilization  time 
delay  to  elapse  between  the  setting  of  a  calibration  mode  and 
the  sampling  of  the  calibration  pressure  by  the  Pressure 
Standard.  The  best  method  to  determine  the  required  time 
delay  is  to  continuously  sample  the  calibration  pressure  until 
the  pressure  stabilizes,  then  record  the  calibration  pressure. 
The  program  SCAN_ZOC_05  uses  an  empirically  derived  1.5  sec 
"wait  period"  between  the  calibration  mode  selections  and  the 
pressure  sampling.  This  time  value  was  determined  using  a 
modified  CAL_READ_PR1  program,  stopwatch  and  oscilloscope. 
CAL_READ_PR1  was  modified  with  a  PAUSE  statement  to  allow 
observation  of  the  ZOC  voltage  signal  on  the  oscilloscope. 
When  the  signal  appeared  to  stabilize  on  the  oscilloscope,  the 
CONTINUE  key  (F2)  was  depressed  to  sample  the  pressure  and 
select  the  next  mode.  The  times  for  six  complete  mode 
selections  were  recorded.  The  average  time  was  found  to  be 
1.34  seconds  between  depressions  of  the  CONTINUE  key.  The 
value  of  1.5  seconds  was  selected  as  a  conservative  value  to 
use  for  the  time  delay. 

The  maximum  sample  data  collection  rate  has  not  yet  been 
realized  with  the  ZOC-14  DAS.  Preliminary  observations 
revealed  a  random  fall-off  in  pressure  values  when  the  "input" 
data  sampling  rate  was  greater  than  50  KHz.   A  more  careful 
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analysis  of  the  sampling  rate  is  required  to  validate  the 
current  50  KHz  value  and  to  determine  the  maximum  data 
sampling  rate. 

An  error  analysis  of  the  ZOC-14  DAS  is  required  to 
determine  the  accuracy  of  the  data  collection  and  reduction 
process.  The  HP67959A  A/D  Cards  have  a  documented  resolution 
of  five  milli-volts  for  their  factory  set  configuration  as 
installed  in  the  HP6944A.  The  Pressure  Standard  mounted  in 
the  CALMOD  has  accuracy  specifications  documented  in  Reference 
17.  The  ZOCs  have  measurement  accuracy  specifications 
documented  in  Reference  16.  The  numerical  Least-Squares  curve 
fitting  routine  introduces  a  so -far  unspecified  uncertainty. 
The  reduced  pressure  readings  provided  in  Figure  39  compared 
to  the  3  0.0  inches  of  mercury  source  pressure,  provide  only  a 
single  example  of  the  pressure  measurement  uncertainty  given 
by  the  DAS18.  Derivation  of  the  overall  system  uncertainty 
needs  careful  attention. 

The  Pressure  Standard's  calibration  has  not  been  verified 
since  it's  delivery.  Calibration  verification  is  essential 
prior  to  accepting  pressure  measurement  data.  Accordingly, 
the  CALMOD  calibration  coefficients,  derived  from  the 
calibration  verification,  need  to  be  changed  on  the  CALMOD 


18  Uncertainty  in  the  source  pressure  of  3  0.0  inches  of 
mercury  as  measured  by  the  TPL  Calibration  Pressure  Manometer 
needs  to  be  considered  in  the  uncertainty  analysis. 
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EPROM.   Reference  17  provides  the  details  to  conduct  Pressure 
Standard  calibration  and  coefficient  changes  on  the  EPROM. 

C.   Potential  Extensions  and  other  Applications 

The  HP9000/HP6944A  subsystem  provides  the  hardware 
features  necessary  to  integrate  computer  control  of 
experiments  with  the  data  acquisition  process.  Three 
immediate  applications  using  the  HP9000/HP6944A  are  identified 
here: 


♦  The  TPL  PACER  can  be  interfaced  with  the  HP9000/HP6944A  to 
provide  phase-locked  data  acquisition  capability19. 

♦  Kulite  pressure  probe  measurements  can  be  acquired  using 
the  analog  signal  from  the  conditioning  amplifier.  The 
signal  would  be  routed  directly  to  the  Buffer  A/D  Function 
input  connector,  using  the  Timer  Function  to  set  the  data 
collection  rate  and  number  of  samples. 

♦  GDL's  transonic  and  supersonic  wind  tunnels  can  be 
operated  with  fully  automated  data  acquisition  and 
experiment  control  systems .  The  tunnel ' s  manual  back- 
pressure valve,  and  electro-servo  controlled  translating 
survey  probe  can  be  operated  by  the  HP9000/HP6944A  to  give 
fully  automated  control. 


19  Preliminary  TPL  PACER  interfacing  techniques  have  been 
examined  but  not  yet  documented. 
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IV.   CONCLUSIONS 

The  DAS  upgrade  and  extension  which  is  reported  here  has 
included  the  adoption  of  the  HP9000  as  a  controller  for 
existing  HP-IB  compatible  DAS  instrumentation,  the  generation 
of  acquisition  and  reduction  software  for  the  existing  system, 
and  the  development  of  a  new  high-speed  pressure  data 
acquisition  capability.  The  new  high-speed  system  involved  an 
integration  of  the  HP9000  with  the  HP6944A  Multiprogrammer  and 
with  Scanivalves • s  ZOC-14  and  CALSYS2000  systems.  In  the 
present  account,  emphasis  has  been  placed  on  reporting  the 
development  of  the  ZOC-14  DAS.  The  hardware  and  software  for 
the  system  have  been  successfully  demonstrated.  It  has  been 
shown  that  the  use  of  the  system  in  the  Gas  Dynamics 
Laboratory  can  reduce  wind  tunnel  test  times  by  a  factor  of 
20. 

Six  issues  concerning  the  present  hardware  and  software 
have  been  identified  as  needing  to  be  resolved,  and  immediate 
applications  of  the  HP9000/HP6944A  system  to  Kulite  and  Phase- 
Locked  data  acquisition,  probe  survey  and  tunnel  condition 
control,  have  been  identified.  The  programs  and  experience 
reported  in  the  present  document  can  serve  to  guide  these 
extensions. 

The  key  to  developing  the  capabilities  resident  in  the 
HP9000/HP6944A  system  is  a  thorough  familiarity"  with  HP  BASIC 
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and  HP14753A  CAT  programming.  Therefore,  the  recommendation 
is  made  that  formal  instruction  in  this  language  and 
programming  techniques  be  provided  before  the  recommended 
extensions  of  the  system  are  attempted. 
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APPENDIX  A.   ZOC-14  PROGRAMS 

Appendix  A  is  a  compilation  of  pertinent  information  and 
programs  used  to  operate  the  ZOC-14  DAS. 

Figure  Al  is  the  ZOC-14  DAS  program  configuration  file, 
"ZOC_CONFIG_05",  print-out  for  the  I/O  Cards  installed  in  the 
HP6944A.  The  print-out  is  produced  using  the  CAT  program 
"DOCUMENT".  The  DOCUMENT  program  is  located  on  the  "/HP6944A" 
directory  (Figure  Dl) .  ZOC_CONFIG_05  is  a  BDAT  file  located 
in  the  /HP6944A  directory. 

Figures  A2  through  A16  are  parts  of  the  SCAN_ZOC_05 
program  flow  chart.  Figure  A17  is  the  SCAN_ZOC_05  program 
listing  with  program-specific  remarks  anotated  after  the  "!" 
character. 

Figures  A18  through  A22  are  ZOC-14  DAS  utility  programs 
located  on  the  /HP6944A  directory. 

Figure  A23  is  the  program  used  to  display  the  ZOC 
operation  menu,  and  define  the  function  keys  to  provide  menu 
item  selection  by  function  keys. 
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File  Name:  ZCC  CONFIG  05 

User  ID: 

26  Apr  1992  16:53:12 

List  of  Names: 

Bufferl        Adcl 

Buffer2 

Adc2           Buffer3 

Adc3 

Timer 

Configuration  for  Bufferl 
Model  Buffer 

Multiprogrammer  Type  . . .  HP6954A  or  HP6944A 
Interface  Select  Code  . .  29 

Frame  0 

Slot  0 

Initial  Mode  FIFO 

Initial  Lockout  ........  Off 

Timeout 10 

Memory  Type  ....  69791A 
No  of  Extenders  ...  0 
Ref  Reg  1  . .  0 
Ref  Reg  2  ...  0 
Buffer  Direction  . .  In 
Front  End  Type  . .  69759A 
A/D  Names:    1  .  Adcl 

2  .  None 

3  .  None 

4  .  None 

5  .  None 

6  .  None 

7  .  None 

8  *  None 


Configuration  for  Adcl 
Model  69759A  500  KHz  A/D 

Multiprogrammer  Type  . . .  HP69S4A  or  HP6944A 
Interface  Select  Code  . .  29 

Frame 0 

Slot  7 

Full-scale  Range   +-10.24  volts 

Initial  Internal  Range  ...  10 

Range  Source  Internal 

Scanner  None 

Timeout  10 

Data  Conversion  Standard 

Internal  Trigger  Disabled 

External  Trigger  Enabled 

Trigger  Mode  Multiple 

Trigger  Polarity  Negative 

Lockout  Polarity  Disabled 

Master  Output  Enable  Enabled 

Mux  Output  Control  Disabled 

External  Output  Enable  ....  Disabled 

Gate  Mode. Multiple 

Return  Data  With  Sign  Extension 


[  Page   1  ] 

ZOC  CONFIG  05 


Figure  Al      ZOC-14   Configuration   File 
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Configuration  for  Buffer2 
Modal  Buffer 

Multiprogrammer  Type  . . .  HP6954A  or  HP6944A 
Interface  Select  Code  . .  29 

Frame  0 

Slot  2 

Initial  Mode  FIFO 

Initial  Lockout  Off 

Timeout  .......  10 

Memory  Type  ....  69791A 

No  of  Extenders  ...  0 
Ref  Reg  1  . .  0 
Ref  Reg  2  ...  0 
Buffer  Direction  . .  In 
Front  End  Type  . .  697 59A 
A/D  Names:    1  .  Adc2 

2  .  None 

3  .  None 

4  .  None 

5  .  None 

6  .  None 

7  .  None 

8  .  None 


Configuration  for  Adc2 
Model  697S9A  500  KHz  A/D 

Multiprogxanmer  Type  . . .  HP6954A  or  HP6944A 
Interface  Select  Code  . .  29 

Fran*  0 

Slot  9 

Full-scale  Range   +-10.24  volts 

Initial  Internal  Range  ...  10 

Range  Source  Internal 

Scanner  None 

Timeout  10 

Data  Conversion  Standard 

Internal  Trigger  Disabled 

External  Trigger Enabled 

Trigger  Mode  Multiple 

Trigger  Polarity  Negative 

Lockout  Polarity  Disabled 

Master  Output  Enable  Enabled 

Mux  Output  Control  Disabled 

External  Output  Enable  ....  Disabled 

Gate  Mode . Multiple 

Return  Data  With  Sign  Extension 


[  Page   2  J 
ZCC  CONFIG  05 


Figure  Al    (cont)    ZOC-14   Configuration  File 
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Configuration  for  Buffer3 
Model  Buffer 

Multiprogranmer  Type  . . .  HP6954A  or  HP6944A 
Interface  Select  Code  . .  29 

Frame  0 

Slot  4 

Initial  Mode  FIFO 

Initial  Lockout  Off 

Timeout  10 

Memory  Type  ....  69791A 
No  of  Extenders  ...  0 
Ref  Reg  1  . .  0 
Ref  Reg  2  ...  0 
Buffer  Direction  . .  In 
Front  End  Type  . .  697 59A 
A/D  Names:    1  .  Adc3 

2  .  None 

3  .  None 
A  .  None 
5  .  None 
8  .  None 

7  .  None 

8  .  None 


Configuration  for  Adc3 
Model  897S9A  500  KHz  A/D 

Multiprogranmer  Type  . . .  8P6954A  or  HP6944A 
Interface  Select  Code  . .  29 

Frame 0 

Slot  11 

Full-scale  Range   +-10.24  volts 

Initial  Internal  Range  ...  10 

Range  Source  Internal 

Scanner  None 

Timeout  10 

Data  Conversion  Standard 

Internal  Trigger  Disabled 

External  Trigger  Enabled 

Trigger  Mode  Multiple 

Trigger  Polarity  Negative 

Lockout  Polarity  Disabled 

Master  Output  Enable  Enabled 

Mux  Output  Control  Disabled 

External  Output  Enable  ....  Disabled 

Gate  Mode Multiple 

Return  Data  With  Sign  Extension 


[  Page   3  ] 
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Figure  Al    (cont)    ZOC-14   Configuration   File 
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Configuration  for  Timer 
Modal  Timar 


Multiprogrammer  Typa  . . .  HP6954A  or  HP6944A 
Interface  Select  Coda  . .  29 
Timer- Pacer  Frame  . .  0 
Timer-Pacer  Slot  . .  13 

Counter  Frame  0 

Counter  Slot  IS 

Counter  size  ...  IS  Bits 

Timeout  10 

Data  Conversion  Standard 

Run  Time  Limit  Checking  ...  No 

Initial  Period  2.E-6 

Initial  Count  0 

Digital  Out  Controller  .  .  No 


[  Page   4  ] 
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Start 


D 


Reserve  COMmon  memory  space  for 
block  names  /Issscom/Isss_heap 
/Names/  for  use  in  the  application 
program 


Load  configuration  file  ZOC_CONFIG_05 


Key_label: 

Define  program  function  keys 


Initialize_spac: 
Reserve  COMmon  memory  space  for 
program  specific  variables,  buffers, 
arrays,  and  strings 


Intro : 

Display  Introduction  screen 


Hold: 


GOTO  Hold 


Yes 


B 


Figure  A2   Program:   Start-up  and  Initialization 
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f2:  Display 
Operating  Menu 


f 3 :  Establish 
initial  program 
data  collection 
parameters  in 
Set-up 


f 4 :  Display  Data 
Collection  Preps 


f5:  Begin  Data 
Collection 


f6:  Begin  Data 
Reduction 


f7:  List  Files 
to  the  screen,  or 
Copy  files  to 
Floppy 


f8:  Exit  program 


© 


Figure  A2  (cont)  Program:   Start-up  and  Initialization 
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(s) 


Intro: 


Display  Introduction  page  to  Screen 


GOTO  Hold 


Key  menu: 


Display  ZOC-14  Operating  Menu 
to  the  screen 


GOTO  Hold 


Figure  A3   Program:   Introduction  and  Operating  Menu 
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Input: 


Set  array  ZOC_CAL  =  0 


Determine  Date 


■C   FNDate$  J 


INPUT  Hard  drive  designation  for  data  storage 


INPUT  Data  sampling  rate 


INPUT  Number  of  samples  per  port 


INPUT  Number  of  ZOCs  connected  to  Multiprogrammer 


Exit  loop 

— « — 


FOR 


Run=l 


NEXT 


C   CALL  File") 


INPUT  CALMOD2  000 
designated  for  ZOC 


Display  Set_up  parameters 


Display  data  file  names  from  File 


GOTO  Hold 


Figure  A4   Program:   Set-up  Parameters 
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Data_prep 


<>0 


=0 


Program  has 
no  Set-up 

parameters 


Display: 
Select  f3 


GOTO  Hold 


Display  Data  Collection  Preparation  requirements 


Initialize  CALSYS2000 


GOTO  Hold 


Figure  A5   Program:   Data  Collection  Preparations 
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f5 


Collect  data: 


=0 


Program  has 
no  Set-up 

parameters 


v  <>0 


Display:  Select  f3 


GOTO  Hold 


Calculate  Count  value  for  Timer  function 


c 


CALL  Scan  zocs 


3 


Raw  data  collection  completed 


Raw  data  xfer: 


Exit  loop 

« — 


Initial  cal 


FOR 


NEXT 


C  CALL  Raw_dat J 


© 


Figure  A6   Program:   Data  Collection 
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Calibration  data  collection 

routine 

Create  raw  calibration  data 

arrays 

Calculate  Count  value  for  Timer 

■  function 

Set  initial  values  in  calibration 

data  arrays 

Collect_cal_dat : 

Exit  loop 

—4 — 


FOR 


L 


CALL  Cal2000 


NEXT 


c 


CALL  Scan  zocs 


0 


Store  data  from  Memory 
into  array  Cal 


Exit  loop 

— 4- — 


Calibration  data  collection  complete 


Figure  A6  (cont)   Program:   Data  Collection 
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Re-initialize  CALSYS2000 


Display  CALMOD2000  calibration  pressure  settings 


GOTO  Hold 


Figure  A6  (cont)   Program:   Data  Collection 
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(g 

Reduce  dat: 


Calibration  and  raw  data  reduction  and  storage 


=0 


INPUT  Date  of  data 
for  reduction 


<>0 


INPUT  Number  of  ZOCs 


INPUT  Data  storage  drive 


Exit  loop 

— «- 


FOR 


NEXT 


c 


CALL  File  scan 


Display  current  data  files  on  storage  drive 


Exit  loop 

GOTO  Hold 

Figure  A7   Program:   Data  Reduction  and  Storage 
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View  data  file  listing 


=0 


INPUT  Date  of  data 
for  reduction 


<>0 


INPUT  Number  of  ZOCs 


INPUT  Data  storage  drive 


FOR 


NEXT 


CALL  File  scan 


Display  current  data  files  on  storage  drive 


Yes 


No 


Copy  data  files  from 
Hard  drive  to  Floppy 


GOTO  Hold 


Figure  A8   Program:   Data  File  Listing  and  Storage 
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Finish: 


LOAD  ZOC  MENU  and  execute 


Exit  SCAN_ZOC_05  program 


C    FNDate$  ^ 


Enter  TIMEDATE 


Calculate  date  value 


RETURN  Date  in  form  YMMDD 


C    FNDate$^) 


Figure  A9   Program:   Exit  /  Subprogram:   FNDate$ 
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C    SUB  File  ^ 


Assign_f ile: 


Define  a  raw  data  file  name  and  storage  drive 


Assign  raw  data  file  name  to  File$  array 


Define  a  calibration  file  name  and  storage  drive 


PURGE  raw  data  file 


Assign  calibration  data  file  name  to  File$  array 


Define  a  reduce  data  file  name  and  storage  drive 


Assign  reduce  data  file 
name  to  File$  array 


Yes 


Increment  Run  value 


No 


Figure  A10   Subprogram:   File 
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Fin: 


Assign  raw  data  file  name  to  File$  array 


Assign  calibration  data  file  name  to  File$  array 


Assign  reduce  data  file  name  to  File$  array 


SUBEND 


(   File  ) 


Figure  A10  (cont)   Subprogram:   File 
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SUB  Scan  zocs 


) 


Calculate  waiting  time  to  allow  Timer 
function  to  complete  its  tasking 


Set  Wait  time  in  Timer 


Set  Count  value  in  Timer 


Set  Timer  pulse  length  of  output  signal 


Initialize  the  Buffer  functions 


Start  the  Timer  to  begin  data  acquisition 


Exit  subroutine  when  Timer 
has  completed  its  tasking 


SUBEND 


Scan  zocs 


Figure  All   Subprogram:   Scan  zocs 
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c 


SUB  Raw  dat 


Create  an  Integer  Buffer  array  Raw_data 
to  store  data  from  the  Memory  card 


Assign_file: 


Select  Raw  data  filename  from  File$ 
array  for  a  specified  Run  number 


CREATE  BDAT  raw  data  file  on 
designated  storage  drive 


CALL  File 
to  increment  File$ 
to  next  file  name 


Transfer  raw  data  from  Memory  card 
into  computer  buffer  array  Raw_data 


Transfer  raw  data  from  buffer  to  BDAT 
data  file  on  the  storage  drive 


SUBEND 


f    Raw_dat  j 


Figure  A12   Subprogram:   Raw_dat 
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f    SUB  Cal2000  J 


Send  command  instruction  to  CALSYS2  000 


Exit  loop 

«- 


NEXT 


SUBEND 


FOR 


OUTPUT  Read  Pressure 
command  to  CALSYS2  000 


ENTER  CALSYS2  000 
pressure  value  into 
Zoc_cal  array 


(cal200CM 


Figure  A13   Subprogram:   Cal2000 
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f    SUB 

Cal_ 

_dat 

0 

Transfer  calibration 
from  array  Cal  to  Zoc 

data 
:_cal 

Select  calibration  data  filename  from 
File$  array  for  a  specified  Run  number 


CREATE  BDAT  calibration  data  file 
on  designated  storage  drive 


Transfer  calibration  data  from  Zoc_cal 
to  BDAT  data  file  on  the  storage  drive 


SUBEND 


Figure  A14   Subprogram:   Cal_dat 
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c 


SUB  Raw  red  dat 


) 


Select  calibration,  raw,  and  reduced 
data  filenames  from  File$  array  for 
a  specified  Run  number 


SUBEND 


;_red_dat  j 


j_red_dat  j 


Load  calibration  data  from  designated 
storage  drive  into  computer  memory 


Create  routine  specific 
arrays  for  data  reduction 


Least  Squares  curve  fit  routine 
to  derive  polynomial  coefficients 


Figure  A15   Subprogram:   Raw_red_dat 
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Store  Least  Square  Coefficients 
into  array  Zoc  cal 


OUTPUT  (store)  reduced  calibration 
data  to  designated  storage  drive 


Create  arrays  to  reduce  Real  raw  data 


CREATE  BDAT  Real  data  file  on  storage  drive 


ENTER  Block  of  32  samples 
into  Integer  array 
Data_integer 


Translate  Integer  data  to 
Real  data  in  Real  array 
Data  real 


OUTPUT  (store)  reduced  raw  data 
to  designated  storage  drive 


SUBEND 


c 


Raw  red  dat 


Figure  A15  (cont)   Subprogram:   Raw_red_dat 
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Define  a  raw  data  file  name  and  storage  drive 


No 


Assign  raw  data  file  name  to  File$  array- 


Define  a  calibration  data  file  name  and  storage  drive 


No 


Assign  calibration  data  file  name  to  File$  array- 


Define  a  reduce  data  file  name  and  storage  drive 


© 


Figure  A16   Subprogram:   File_scan 
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§ 


© 


Assign  reduced  data  file  name  to  File$  array 


Assign_file: 


Yes 


Set  File_in_storage=l 


_m_storage> — ►- 


=1 


Set   WHILE    Loop   False 


=100 


Set  WHILE  Loop  False 


Increment  Run  number 


Figure  A16  (cont)   Subprogram:   File  scan 
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Program:  SCAN_ZOC_05 

Description:  Application  program  to  operate  HP6944A  collecting  pressure 
readings  from  1-3  ZOC-14  32  port  modules  using  the  CALSYS 
2000  to  provide  calibration  data,  reduce  raw  pressure  data 
and  store  data  to  the  hard  drive. 

Hardware:   (1)  HP6944A  Multi-processors 

-  (3)  500  kHz  A/D  Cards  (HP69759A) 

-  (3)  High  Speed  Memory  Cards  (HP69791A) 

-  (1)  Timer/Pacer  Card  (HP69736A) 

-  (1)  Counter  Card  (HP69775A) 

(1)  HiScan  CALSYS  2000  Calibration  Module 
I  (3)  ZOC-14  32  port  Electronic  Pressure  Scanning  Modules 

t  Notes:  1.  This  program  utilizes  up  to  three  (3)  ZCC  Modules  storing  data 
!        of  each  ZCC  into  a  seperate  buffer  Memory  System  (HP69791A) . 
!         2.  COM  /Names/  line  and  BDAT  file  ZOC_CONFIG_05  must  match  for 
!        this  program  to  operate. 

!         3.  CALSYS2000  requires  a  short  period  to  stabilize  before  reading 
!        the  pressure  valves.   The  Pause_for  statement  sets  (line  4  70)  this 
!        wait  period  in  seconds.   Adjustment  of  the  variable  my  be  required 
!        as  additional  ZOCs  are  integrated  into  the  Data  Acquisition  System. 
!        4.  CALSYS2000  currently  configured  for  one  (1)  calibrator.   This 
!        program  is  written  to  operate  one  (1)  or  two  (2)  calibrators. 
I 

!  Buffer  Memory:  65536  16-bit  data  words  in  HP69791A  per  system 

I  Timer:  Maximum  32767  counts  for  one  HP69775A  (32*1023-32736  data  points) 

t  Max  speed  of  HP  system  is  Period-0. 000002  sec.  or  500  kHz. 

! 

COM  /Issscom/    INTEGER  X( 1:1106) 

COM   /Isss_heap/    Isss_heap(1000) 

COM  /Names/   Buff erl,Adcl,Buf fer2,Adc2, Buffers, Adc3, Timer 

Conf igure( "Menu_of f " , "ZOC_CONFIG_05" ) 
•Configure ("Ask  mV\"ZOC  CONFIG_05") 
! 


Key_label:    ! 

i 

KEY  LABELS  ON 
ON  KEY  1  LABEL 


KEY  LABEL  ASSIGNMENT 


ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 


ON  KEY  8  LABEL 
l 


'Intro"  GOTO  Intro 

'Key     Menu"  GOTO  Keyjnenu 

'Set-up"  GOTO  Input 

'Data    Preps"  GOTO  Data_prep 
LABEL  "Collect  Data"  GOTO  Collect_data 
LABEL  "Reduce   Data"  GOTO  Reduce_data 

List    Copy"  GOTO  View_files 

Exit"  GOTO  Finish 


LABEL 
LABEL 
LABEL 


LABEL 


Initialize_spac : 
Pause  for— 1.5 


ASSIGN  MEMORY  SPACE - 

!  Wait  time  for  CALSYS2000  stabilization 
!  COM  assigns  calibration  data  array  for  32  Zoc  ports  and  standard  values. 
COM  /Zoc_dat/  REAL  Zoc_call(33 , 10)  BUFFER, Zoc_cal2(33 , 10 )  BUFFER, Zoc_cal3( 33, 10  )  BUFFER 
COM  /Stats/  REAL  Pulse, Sample_number,Pause_f or , INTEGER  Cal_mod_id(3 ) ,DateS[6] ,Run 
COM  /Files/  FileS(l:99,l:9)[14] ,Data_driveS( 11]  !Data  file  &  storage  drive. 
| 

DIM  Command_mode$(l: 7) [2] 
Command_modeS( 1 )~"NH" 
Commandjnod  eS  ( 2 )  =»  "  NM" 
Comman  d  _mod  eS ( 3 ) ■ " NL " 
Command_mode$(4 )-"ZO" 
Command_modeS ( 5)~"PL" 
Command_mode$ ( 6 ) - " PM" 
Command_modeS(7)-"PH" 
i 

Run-0 

Data  reduced=0 


Intro:  !■ 


INTRODUCTION  SCREEN 


Figure  A17   ZOC-14  DAS  Program:  SCAN_ZOC_05 
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660 
670 
680 
690 
700 
710 
720 
730 
7A0 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 


CLEAR  SCREEN 

PRINT  "Introduction. 

PRINT 

PRINT  " 

PRINT  " 

PRINT  " 

PRINT  " 

PRINT  " 

PRINT  " 

PRINT  " 

PRINT  " 

PRINT 

PRINT  " 

PRINT  " 

PRINT  " 

PRINT  " 

PRINT 

!  Note: 

! 

i 


Program  SCAN_ZOC_05: " 

-  Scans  1-3  Zoc-14  Modules  simultaneously  (32  pressure  sensing  ports  each). 

-  Uses  Zero  Operate  Calibrate  (ZOC)  principal:" 

-  Collects  raw  pressure  data  (Zero  Operate)" 

-  Collects  calibration  data  (Calibrate)" 

-  Reduces  and  stores  data  on  selected  hard  or  floppy  drive." 

-  CALSYS2000  Calibration  Module  used  for  the  reference  pressure  standard." 

-  Raw  pressure  data  reduced  using  calibration  data  from  CALSYS2000" 
and  Zocs  In  the  calibration  mode." 


Input  variables: 


Hard  and  Floppy  drive  for  data  storage" 
Sample  frequency  per  port  (1-50,000  Hz)" 
Samples  per  Port  (1-1023)" 
Number  of  Zocs  and  their  capacity" 


HFS  Files  limited  to  14  characters,  LIF  Files  limited  to  10  char. 
Output  files  have  a  length  of  10  characters  to  support  LIF  iorrat. 
Hard  drive  :,700  is  HFS  format,  :, 700, 0,1  is  LIF  format. 
!       Floppy  drive  :, 700,1  is  LIF  format. 

"Output  files:    Raw  data  ■>     ZW(Zoc#) (Date  YMMDD) (Run#)" 
Calibration  ->  ZC(Zoc#) (Date  YMMDD) (Run*)" 
Reduced  data  ->  ZR(Zoc#) (Date  YMMDD) (Run#)" 
Select  F2  key  for  Key  Menu,  F3  for  system  inputs,  or  F6  for  data  reduction. 


PRINT 
PRINT 
PRINT 
DISP 
Hold:  ! 
GOTO  Hold 
! 


930  Keyjnenu:  I- 


KEY  MENU 


960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 


! 

CLEAR  SCREEN 

PRINT  "ZOC-14  Operating  Menu.' 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 
! 

GOTO  Hold 
! 


'Function 

Introduction 
Operating  Menu 
System  Set-up 

Data  Collection  Preparation 
Data  Collection 
Data  Reduction 
'   List  Files  (Copy  files  to  Floppy) 

Exit 


Function  Key" 

Fl" 
F2" 
F3" 
F4" 
F5" 
F8" 
F7" 

F8" 


Input:! INPUT  VARIABLES  

MAT  Zoc_call-  (0) 

MAT  Zoc^caU-  (0) 

MAT  Zoc  cal3-  (0) 

MAT  FileS-  ("-") 

DateS-FNDateS ( TIMEDATE ) 

! 

CLEAR  SCREEN 

PRINT  "System  Set-up." 

PRINT 

INPUT  "Select  Hard  drive  for  storing  data  (0- 

IF  Drv-0  THEN 

Data_driveS-" : , 700 ,0,0" 
ELSE 

Data_driveS-" : , 700 , 0 , 1" 
END  IF 
INPUT  "Enter  data  sampling  rate  (l-50kHz):' 


,700  1-: ,700,0, l)",Drv 


,Hz 


Figure  A17  (cont)  ZOC-14  DAS  Program:  SCAN_ZOC_05 


98 


1310 
1320 
1330 
13*0 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 


PRINT  "Data  acquisition  rate: " ;TAB(50) ;Hz; "  Hz" 
INPUT  "Number  of  samples  per  port  (1-1023):  " ,Sample_number 
PRINT  "Number  of  samples  per  port: " ; TAB (50) ;Sample_number 
INPUT  "Number  of  Zoc's  connected  to  Multi-programer" , Zoc_number 
PRINT  "Number  of  Zoca  to  be  scanned: "j TAB (50) ; Zoc_number 
Cal_mod _id(0)-Zoc_number 
FOR  Zoc_case-l  TO  Zoc_number 
SELECT  Zoc_case 
CASE  1 

Run-1 

CALL  Filed) 

INPUT  "Enter  Calibration  Module  number  set  for  Zoc  #1  (Enter  1  or  2) : " ,Cal_mod  idd) 
CASE  2 

Run-1 

CALL  File(2) 

INPUT  "Enter  Calibration  Module  number  set  for  Zoc  #2  (Enter  1  or  2) : " ,Cal_mod_id(2) 
CASE  3 

Run-1 

CALL  File(3) 

INPUT  "Enter  Calibration  Module  number  set  for  Zoc  #3  (Enter  1  or  2) : " ,Cal_mod _id(3) 
END  SELECT 
NEXT  Zoc  case 
f 

Period-1/Hz 

Pulse-Period/2  ! Pulse  length  of  HP69736A  trigger  signal 

t 

PRINT  "Total  raw  data  acquisition  time: " ;TAB(50) ;Perlod*Sample_number*31; "  sec." 
PRINT  "Total  calibration  data  acquisition  time:"; TAB (50) ;Period*5*31+(7*Pause_for) ;"  sec. 
PRINT 
PRINT 
PRINT 
PRINT 
FOR  1-1  TO  Zoc  number 


'Data  storage  disc  ->" ; Data_drive$ 

'Data  will  be  stored  in  the  following  files  beginning  with  Run  #'";Run 


J-(I-1)*3 

PRINT  "Raw  data  file: 

Calibration  data  file: 
Reduced  data  file: 


;FileS(Run,J+l) 
;File$(Run,J+2) 
;FileS(Run,J+3) 


PRINT 

PRINT 

PRINT 
NEXT  I 
! 

DISP  "Select  F4  key  to  begin  data  aquisition" 
GOTO  Hold 
t 
Data_prep:  t PREPARE  FOR  DATA  COLLECTION  

CLEAR  SCREEN 

PRINT  "Data  Collection  Preparation." 

PRINT 

IF  Run-0  THEN 

PRINT  "Program  not  initialized  for  data  collection." 

DISP  "Select  F3  to  initialize  Set-up" 

GOTO  Hold 
END  IF 

PRINT  "Check  list:" 

PRINT  "   -  HiScan  CALSYS2000  on-line" 

PRINT  "   -  CALMOD  supply  line  valve  is  OPEN  (on  back  of  CALSYS2000)" 
PRINT  "   -  CALSYS2000  (Nitrogen)  pressure  source  at  90  psi" 
! 
! 

CONTROL  9, 5; 3  !  Set  DTR  &  RTS  to  Active  for  CALSYS2000 

OUTPUT  9;VALS(1);"IC";CHRS(13);END!  Initialize  Calibrator  module  #1 
OUTPUT  9;VALS(2);"IC";CHRS(13);END!  Initialize  Calibrator  module  #2* 
WAIT  Pause_for  !  Allow  CALSYS2000  to  set  Zocs 

; 

DISP  "Select  F5  to  start  data  aquisition" 
GOTO  Hold 


Figure  A17    (cont)    ZOC-14   DAS   Program:    SCAN_ZOC_05 
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! 

Collect_data:  ! COLLECT  DATA 

IF  Run-0  THEN 

PRINT  "Program  not  Initialized  Cor  data  collection." 

DISP  "Select  F3  to  initialize  Set-up" 

GOTO  Hold 
END  IF 

CLEAR  SCREEN 
PRINT 

PRINT  "Collecting  raw  pressure  data." 

Count-Sample_number*32  !  Set  Count  as  function  of  sample  number 

!  and  number  of  port  readings  (32)  on 
I  Zoc  for  raw  data  collection. 
CALL  Scan_zocs (Count, Pulse)      !  Collect  raw  data  into  Memory  System 
PRINT 

PRINT  "Raw  data  collection  complete." 
BEEP 


Raw_data_xfer: ! — 

fr£nt 

! 

FOR  Zoc_case— 1  TO  Zoc_number 
SELECT  Zoc_caae 
CASE  1 

CALL  Raw_dat(Bufferl,l) 
CASE  2 

IF  Run>l  THEN 

Run«Run-l 
END  IF 

CALL  Raw  dat(Buffer2t2> 
CASE  3 

IF  Run>l  THEN 

Run-Run- 1 
END  IF 

CALL  Raw_dat(Buffer3,3) 
END  SELECT" 
NEXT  Zoc  case 


TRANSFER  RAW  DATA  FM  MEMORY  SYSTEM  TO  HARD  DISC 


!  Collect  raw  data,  reduce  data  and 
!  and  store  reduce  data  on  hard  drive 


Initial_cal:! CALIBRATION  SET-UP  — - — - 

!  Calibration  data  array  for  each  Zoc:  Zoc_cal_(33, 10) 

!  Format: 

!  For  ports  i-1  to  33 

!  Row  0,  column  0:  Period 

!  Row  0 ,  column  1 :  Sample  number 

!  Row  0,  column  2:  Zoc  # 

!  Row  0,  column  3:  Calibrator  module  ID  (1-50  psi  2-15  psi) 

!      Row  0:  NHNMNLZOPLPMPH   (pressure  Hg. ) 

!  Row  1:  A0  Al  A2  A3  NH  NM  NL  ZO  PL  PM  PH  (LS  coef, press  volts) 

!  LS  coef  are  Least  Squares  curve  fit  coef  for  third  order  polynomial. 


! 

PRINT 

PRINT  "Collecting  calibration  data." 
REAL  Call(1120),Cal2(1120).Cal3(1120)!  Calibration  data  array 


Count-32*5 
I 

MAT  Zoc_call-  (0) 

MAT  Zoc_cal2-  (0) 

MAT  Zoe~cal3-  (0) 

Zoc_call( 0,0) -Period 

Zoc_call(0, 1)-Sample_number 

Zoc_call(0,2)-1 

Zoc_call (0.3 )-Cal_mod_id( 1 ) 

Zoc_cal2 (0 . 0 )-Pariod 

Zoc_cal2(0 , 1 )»Sample_number 

Zoc  ca!2(0,2)»2 


!  Set  count  to  collect  calibration  data 
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2610  Zoc_cal2(0,3)-Cal_mod_id(2) 

2620  Zoc_cal3(0,0)-Period 

2630  Zoc_cal3(0,l)-Sampla_number 

2640  Zoc~cal3(0,2)-3 

2650  Zoc_cal3(0(3)-Cal_mod_id(3) 

2660  I 

2670  Collect_cal_dat:  ! COLLECT  RAW  CALIBRATION  DATA  --  — 

2680  ! 

2690  !  Collect  raw  calibration  data  for  each  CALSYS2000  setting 

2700  FOR  Index-1  TO  7 

2710  CALL  Cal2000(Conmand_mode$( Index), Index) 

2720  CALL  Scan_zocs (Count . Pulse) 

2730  FOR  Zoc_case-l  TO  Zoc_number 

2740  SELECT  Zoc_case 

27 SO  CASE  1 

2760  Input_rblock (Buf f er 1 , Call ( * ) , 160 , ( Index- 1 ) *160+1 ) 

2770  CASE  2  " 

2780  Input_rblock(Bu£fer2,Cal2(*),160,(Index-l)*160+l) 

2790  CASE  3  ~ 

2800  Input  rblock(Buffer3,Cal3(*),160,(Index-l)*160+l) 

2810  END  SELECT 

2820  NEXT  Zoc  case 

2830  NEXT  Index 

2840  ! 

2830  I  Store  collected  calibration  data 

2860  FOR  Zoc_case-l  TO  Zoc_number 

2870  SELECT  Zoc_case 

2880  CASE  1 

2890  CALL  Cal_dat(Call(*) ,Zoc_call(*) ) 

2900  CASE  2 

2910  CALL  Cal_dat(Cal2(*),Zoc  cal2(*)) 

2920  CAJSE  3 

2930  CALL  Cal_dat(Cal3<*) ,Zoc_eal3(*) ) 

2940  END  SELECT" 

2930  NEXT  Zoc_caae 

2960  t 

2970  PRINT 

2980  PRINT  "Calibration  data  collection  complete." 

2990  BEEF 

3000  WAIT  .23 

3010  BEEP 

3020  OUTPUT  9;VAL$(1);"IC";CHRS(13);END!  Initialize  Calibrator  module  #1 

3030  OUTPUT  9;VALS(2);"IC";CHR3(13);END!  Initialize  Calibrator  module  #2 

3040  PRINT 

3030  PRINT  "***  Secure  Calibrator  pressure  valve  to  conserve  Nitrogen  ***" 

3060  PRINT 

3070  PRINT  "CALSYS2000  Calibration  modes  and  pressures  (in  Hg):" 

3080  Fmtl:IMAGE  / , 5X,K, 10X.K, 10X.K, 10X.K 

3090  PRINT  USING  Fmtl; "Mode" , "Zoc  #l","Zoc  #2", "Zoc  #3" 

3100  Fmt2:IMAGE  6X,K, 10X, 3D. 4D, 8X, 3D. 4D, 8X, 3D. 4D 

3110  FOR  1-4  TO  10 

3120  PRINT  USING  Fmt2;Comnand  modeS(I-3) , Zoc_call(0, I) , Zoc_cal2(0 , I) , Zoc_cal3(0 , I ) 

3130  NEXT  I 

3140  DISP  "Select  F4  for  another  data  run,  or  F6  to  reduce  data" 

3150  GOTO  Hold 

3160  ! 

3170  Reduce_data: ! REDUCE  DATA  AND  STORE  ON  HARD  DRIVE  

3180  I  Routine  loads  raw  and  calibration  data  from  storage  drive,  reduces  the 

3190  !  data,  and  stores  the  data  to  the  storage  drive. 

3200  ! 

3210  CLEAR  SCREEN 

3220  PRINT  "Calibration  and  Raw  data  reduction  and  storage." 

3230  PRINT 

3240  IF  Run-0  THEN 

3250  INPUT  "Enter  the  date  of  data  for  for  reduction  (YMMDD) : " ,DateS 
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3260  INPUT  "Number  of  Zoc's  connected  to  Multi-programer" , Zoc_number 

3270  INPUT  "Select  data  storage  drive  (0-:,700  1-:, 700, 0,1  2": , 700, 1)" ,Drv_case 

3280  SELECT  Drv_caae 

3290  CASE  0 

3300  Data_driveS-": ,700,0,0" 

3310  CASE  1~ 

3320  Data_driveS-"':  ,700,0,1" 

3330  CASE  2 

33*0  Data_drlve$-" : , 700 , 1" 

3350  END  SELECT 

3360  END  IF 

3370  1 

3380  MAT  FilaS-  ("-") 

3390  FOR  Zoc_casa-l  TO  Zoc_number    (Assign  files  from  storage  to  File$(*) 

3400  SELECT  Zoe_case 

3410  CASE  1 

3420  CALL  File_scan(l) 

3430  CASE  2 

3440  CALL  File_scan(2) 

3450  CASE  3 

3460  CALL  File_scan(3) 

3470  END  SELECT  ~ 

3480  NEXT  Zoc_cas« 

3490  t 

3500  PRINT  "Current  files  on  storage  disc  " ;Data_driveS; "  for  date  ";DateS 

3510  PRINT 

3520  FOR  Rn-1  TO  Run 

3530  FOR  Zn-1  TO  Zoc  number 

3540  FOR  1-1  TO  3  ~ 

3550  PRINT  USING  "3X,K,#,,;FileS(Rn, (Zn-1)*3+I) 

3560  NEXT  I 

3570  PRINT  USING  "+.L" 

3580  NEXT  Zn 

3590  NEXT  Rn 

3600  PRINT 

3610  ! 

3620  FOR  Run_red-1  TO  Run              !  Reduce  data  routine. 

3630  FOR  Zoc_case-l  TO  Zoc_number 

3640  SELECT  Zoc_case 

3650  CASE  1 

3680  CALL  Raw_red_dat(l,Run_red) 

3670  CASE  2 

3680  CALL  Raw_red_dat(2,Run_red) 

3690  CASE  3 

3700  CALL  Raw_rad_dat(3,Run_red) 

3710  END  SELECT 

3720  NEXT  Zoc_casa 

3730  NEXT  Run_red 

3740  Run-0 

3750  Data_reduced-1 

3760  BEEP 

3770  DISP  "Select  F3  reinitialize  set-up  for  data  collection,  or  F8  to  Exit" 

3780  GOTO  Hold 

3790  I 

3800  Vlew_files:  I VIEW  FILES  ON  STORAGE  DRIVE 

3810  !  Routine  loada  filea  from  storage  drive  and  displays  file  names. 

3820  I 

3830  CLEAR  SCREEN 

3840  PRINT  "List  Raw,  Calibration  and  Reduced  data  files." 

3850  PRINT 

3860  IF  Data_reduced-1  THEN  Print_filea 

3870  IF  Run-0  THEN 

3880  INPUT  "Enter  the  date  of  data  for  for  reduction  (YMMDD) : " ,DateS 

3890  INPUT  "Number  of  Zoc's  connected  to  Multi-programer ", Zoc_number 

3900  INPUT  "Select  data  storage  drive  (0-:,700  1-:, 700. 0,1  2=: , 700 , 1 )" , Drv_case 
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';Data_driveS 


'Assign  files  from  storage  to  FileS(*) 


SELECT  Drv_case 
CASE  0 

Data_driveS-" : , 700 ,0,0" 
CASE  1~ 

Data_driveS-" : , 700 ,0,1" 
CASE  2 

Data_drlveS-" : , 700 , 1" 
END  SELECT 
END  IF 
Prlnt_files:  ! 
PRINT  "Data  storage  drive  name  -> 
! 

MAT  FileS-  ("-") 
FOR  Zoc_case-l  TO  Zoc_number 
SELECT  Zoo_case 
CASE  1 

CALL  File_scan(l) 
CASE  2 

CALL  File_scan(2) 
CASE  3 

CALL  File_scan(3) 
END  SELECT  ~ 
NEXT  Zoc_caae 
! 

PRINT 

PRINT  "Current  files  on  storage  disc  for  date  ";DateS 
PRINT 

FOR  Rn-1  TO  Run  (Print  the  files  listing  on  the 

FOR  Zn-1  TO  Zoc_number  (designated  storage  drive. 

FOR  1-1  TO  3  " 

PRINT  USING  "3X,K,#";File3(Rn,(Zn-l)*3+D 
NEXT  I 

PRINT  USING  "/" 
NEXT  Zn 
NEXT  Rn 
i 
IF  Drv_case<2  THEN 

INPUT  "Do  you  want  to  copy  files  from  the  Hard  drive  to  Floppy?  (0-No  1-Yes )" ,Copy_h_to_f 
IF  Copy_h_to_f-0  THEN  End_vlew 
ON  ERROR  GOSUB  View  error 
PRINT 

PRINT  "WARNING:  Any  duplicate  existing  files  on  the  Floppy  will  be  copied  over!" 
PRINT  (Copy  the  files  from  the  designated 

FOR  Rn-1  TO  Run  (hard  drive  to  the  floppy  drive. 

FOR  Zn-1  TO  Zoc_number 
FOR  1-1  TO  3  ~ 

FiS-FileS(Rn. (Zn-1)*3+I) 

COPY  Fi$&Data_driveS  TO  FiS&" : , 700, 1" 

IF  FiS<>"-"  THEN 

PRINT  "File  ";FiS;"  copied  to  Floppy" 
END  IF 
NEXT  I 
NEXT  Zn 
NEXT  Rn 
PRINT 

PRINT  "Files  have  been  copied  from 
END  IF 

GOTO  End_view 
View_error:    ! 
SELECT  ERRN 
CASE  56 

CLEAR  ERROR 
ERROR  RETURN 
CASE  54 

PURGE  FiS&": ,700,1" 


";Data  driveS;"  to  Floppy  :, 700,1" 


(File  does  not  exist,  then  continue. 

(Return  to  line  following  COPY 
(Duplicate  file  exist  on  the  floppy, 
(then  purge  the  dup  file,  retrun  to 
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!tho  Lino  COPY  and  copy  the  file. 


or  F8  to  Exit" 


CLEAR  ERROR 

RETURN 
CASE  ELSE 

DISP  ERRMS 

PAUSE 
END  SELECT 
; 
i 
End_view:  ( 
Run-0 

DISP  "Select  F2  to  return  to  menu, 
GOTO  Hold 
! 
Finish:! 
LOAD  "ZOC_MENU",10 
! 
END 

!  Function  to  return  todays  data  for  input  into  file  names 
DEF  FNDate$( Seconds) 

Julian-Seconds  DIV  86400-1721119 
Year-(4*Julian-l)  DIV  146097 
Julian-(4*Julian-l)  MOD  146097 
Day- Julian  DIV  4 
Julian-(4*Day+3)  DIV  1461 
Day-(4*Day+3  5  MOD  1461 
Day-(Day+4)  DIV  4 
Month-(5*Day-3)  DIV  153   I  Month 
Day-<3*D«y-3J  MOD  153 
Day-(Dey+5)  DIV  5        !  Day 
Yeer-100*Year+Julian 
IF  Month<10  THEN 

Month^tonth+3 
ELSE 

Mon  fen- not)  t  n+  3 

Year-Year+1 
END  IF 

Year$-VALS(Year) 
IF  Month<10  THEN 

MonthS-" O'&VALSf Month) 
ELSE 

MonthS-VAL$ (Month ) 
END  IF 
IF  Day<10  THEN 

DayS-"0"&VALS(Day) 
ELSE 

Day$-VAL$(Day) 
END  IF 

DS-YearS  t 4  j  &MonthS&Day $ 
RETURN  DS 
FNEND 
! - 


t  Subroutine  to  build  file  names  as  required  by  Run  number  for  a  specified 
!  Zoc,  and  assign  existing  files  to  the  FileS  matrix. 
SUB  File(Zn) 

COM  /Stats/  REAL  Pulse, Sample_number , Pause_f or , INTEGER  Cal_mod_id(3) ,DateS,Run 

COM  /Files/  Flle$(*).Data_drive$ 

DIM  Data_disclS[23] ,Data_disc2$[23] ,Data_disc3S[23] 

ON  ERROR  GOTO  Error 

J-(Zn-l)*3 
Assign_file:    ! 

Filel-0 

Data_filel$-,,ZW"&VAL$(Zn)&Date$&VALS(Run) 

Data_disclS-Data_filelS&Data_driveS 

ASSIGN  @Check_pathl  TO  Data_discl3    ICheck  for  existance  of  ZW_. 
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lAssign  ZW_ 
!Flag  to  ID 


to  matrix, 
file  exists. 


FileS(Run,J+l)-Data_filel$ 

Filel-1 

! 

File2-0 

Data_f 1 lo2$»" ZC"&VALS ( Zn )&Date$&VAL$ (Run ) 

Data_dlsc2S=Data_file2S&Data_driveS 

ASSIGN  8Check_path2  TO  Data_disc2S    ICheck  for  existance  of  ZC_ 

File$(Run, J+2)=Data_file2S  lAssign  ZC_  to  matrix. 

File2-1  (Flag  to  ID  file  exists. 

! 

Data_f 1 1«3S-" ZR-&VALS ( Zn ) &DateS&VALS (Run ) 

Data_disc3S-Data_file3S&Data_driveS 

ASSIGN  8Check_path3  TO  Data_dlsc3S    ICheck  for  existance  of  ZR_ 

File$(Run, J+3)-Data_fila3S  lAssign  ZR  to  matrix. 


(If  ZW_  exist,  reassign  Run  if 


Run-Run+1 

ASSIGN  8Check_pathl  TO  * 
ASSIGN  8Checkj?ath2  TO  * 
ASSIGN  8Check_path3  TO  * 
GOTO  Assign_file 
Error:   f  Subroutine  if  ERROR-56,  files 
IF  ERRN<>56  THEN 
PRINT  ERRMS 
PAUSE 
END  IF 

IF  Filel-0  THEN  Fin 
IF  Filal-1  THEN 
IF  Fil«2-0  THEN 

ASSIGN  8Ch«ck_pathl  TO  * 
PURGE  Data  disclS 
ELSE 

Run-Run+1 
END  IF 
END  IF 

ASSIGN  §Check_pathl  TO  * 
ASSIGN  8Check_path2  TO  * 
ASSIGN  8Check_path3  TO  * 
GOTO  Aasign_file 
Fin:    ! 

ASSIGN  8Check_pathl  TO  * 
ASSIGN  8Check_path2  TO  * 
ASSIGN  8Check_path3  TO  * 
Data_f il«2$-" ZC"&VAL$ ( Zn )&DateS&VALS (Run ) 
Data~fila3S-"ZR"&VALS(Zn)&DateS&VAL$(Run) 
FileS(Run,J+l)-Data_filel$          [Create  ZW 
FilaS(Run,J+2)-Data~file2$          ICreata  ZC 
FileS(Run,J+3)-Data~file3S          lAssign  ZR 
SUBEND 
[-.._ 


'Check  storage  disc  again, 
donot  exist  for  Run  and  Zoc 


IFile  ZW_  doesnot  exist, 

IFlla  ZW~  exists 

(File  ZC_  doesnot  exists 

exit 
,  therefore 

f delete  ZW  . 

IFile  ZW_  &  ZC_  exist,  step  Run 
land  continue. 


to  matrix, 
to  matrix, 
to  matrix. 


!  Subroutine  to  operate  the  HP6944A  Multi -programmer  for  scanning  Zocs. 
SUB  Scan_zocs( Count, Pulse) 

COM  /Names/  Bufferl.Adcl, Buff er2,Adc2, Buff er3 ,Adc3 .Timer 


Wait_time^:ount*2*Pulse+10 . 0 
Init(Tlmer) 

Set_timeout ( Timer , Wai t_time ) 
Set_count ( Timer , Count ) 
Set_period( Timer , Pulse ) 
Init(Bufferl) 
Init(Buffer2) 
Init(Buffer3) 
Start (Timer) 
Wait_for(Timer) 
SUBEND 


!  Set  Timer  wait  time  to  +10  sees. 
!  Initialize  Timer  system 
!  Set  Pause_for  period  of  xx  sees. 
1  Set  Count  number  into  Timer 
!  Set  Timer  pulse  length  in  sees. 
!  Initialize  Buffer  for  data  storage 


Start  data  sample  collection 

Data  samples  stored  in  Memory  System 


!  Subroutine  to  collect  raw  pressure  data  from  Memory  System  and  store 
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!  onto  the  hard  drive  for  future  data  reduction. 
SUB  Raw_dat(Buff ,Zn) 

COM  /Stats/  REAL  Pulse, Sample_number , Pausef or , INTEGER  Cal_mod_id(3) ,DateS ,Run 

COM  /Files/  FileS(*),Data_driveS  !  Data  file  listing  for  99  runs. 

ON  ERROR  GOTO  Error 

INTEGER  Raw_data(32672)  BUFFER   !  Integer  raw  data  buffer  for  32*1021 

!  data  samples.   Integer  format  for 
t  mininum  transfer  time  to  storage. 

DIM  Data_discS[23] 

Sn-Sample_number 
Assign  file-    I 

Data_file$-FileS(Run,(Zn-l)*3+l)  t  Raw  data  file 

Data_discS-Data_fileS&Data_driveS 

CREATE  BDAT  Data_disc$,32*Sn+l,2    I  Create  BDAT  file  of  2  byte  records. 

ASSIGN  8Data_path  TO  Data_discS  !  Assign  path  to  hard  drive 

ASSIGN  8Buffer_path  TO  BUFFER  Raw_data(*) ; FORMAT  OFF 

Input_iblock(Buff ,Raw_data(*),Sn*32,l)      !  Load  data  samples 


CONTROL  9Buf f er_path , 4  j 32*2*Sn+2 
TRANSFER  8Buffer_path  TO  §Data_path 
ASSIGN  8Buffer_path  TO  * 
ASSIGN  8Data_path  TO  * 
PRINT  "Raw  pressure  data:  Run#";Run;' 
GOTO  Fin 
Error:  I 

IF  ERRN<>54  THEN 
PRINT  ERRMS 
PAUSE 
END  IF 

IF  ERRH-54  THEN 
Run-Run+1 
CALL  Fiie(Zn) 
END  IF 

GOTO  Asaign_file 
Fin:      I 
SUB END 
j 


t  Close  buffer  when  full 
t  Transfer  data  Data  disc 


Zoc#";Zn;",  storage  drive  file  ";Data  fileS&Data  driveS 


I  Run  step  routine  when  compiling 
!  multiple  data  runs  without  data 
!  reduction. 


|  Subroutine  controls  calibration  mode  and  reads  pressure  from  Pressure 

!  Standard  into  Zoc_cal(*)  array. 
SUB  CaL2000 (Commands, I) 

COM  /Zoc_dat/  REAL  Zoc_call(*)  BUFFER, Zoc_cal2(*)  BUFFER, Zoc_cal3(*)  BUFFER 
COM  /Stats/  REAL  Pulse, Sample_number ,Pause_f or , INTEGER  Cal_mod_id(3) ,DateS,Run 
DIM  Pressures [5]  !  Required  to  read  data  stream 

OUTPUT  9 ; VALS < 1 ), Commands ;CHRS< 13); END   !  Sets  calibrator  #1  mode 
OUTPUT  9;VALS<2);CoamandS;CHRS<13);END   ! 
WAIT  Pause  for  ! 


Sets  calibrator  #2  mode 
Allow  CALSYS2000  to  stabilize 
Read  CALSYS2000  cal  press 


•RP";CHRS(13);END 

;Zoc  call(0, 1+3), Pressures 


FOR  K-l  TO  Cal_mod_id(0) 
SELECT  K        "  - 
CASE  1 

OUTPUT  9;VALS(Cal_mod_id(D) 
ENTER  9  USING  "#,SD. 5DESZZ.K 
CASE  2 

OUTPUT  9;VALS(Cal_mod_id(2));"RP";CHRS(13);END 
ENTER  9  USING  ,,#,SD. 5DESZZ.K" ; Zoc_cal2(0, 1+3) , Pressures 
CASE  3 

OUTPUT  9; VALS(Cal_mod_id< 3 ) ) ; "RP" ;CHRS( 13 ) ; END 
ENTER  9  USING  "#,SD. 5DESZZ.K" ; Zoc_cal3(0 , 1+3 ) .Pressures 
END  SELECT 
NEXT  K 
IF  K-3  THEN 

Zoccall ( 0, 1+3 )— Zoc_call( 0,1+3)  !  by  CALSYS2000  in  the  NH.NM 
Zoc_cal2( 0,1+3)— Zoc_cal2(0, 1+3) 
Zoc_cal3( 0,1+3)— Zoc_cal3(0. 1+3) 
END  IF 
SUBEND 


Account  for  positive  pressures  used 

&  NL  mode . 
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!  Subroutine  stores  calibration  data  collected  from  Memory  System  and 

1  CALSYS2000  calibration  pressure  data  onto  the  hard  drive. 

!  Zoc_cal_  is  then  stored  onto  the  hard  drive. 
SUB  Cal_dat(REAL  Cal(*) , Zoc_cal(*)  BUFFER) 

COM  /Stats/  REAL  Pulse, Sample_number , Pause_f or , INTEGER  Cal_mod_id(3) ,Date$,Run 
COM  /Files/  FileS(*),Data_driveS  !  Data  file  listing  for  99  runs. 

i 

!  Converting  Cal(*)  to  Zoc_cal(*) 

FOR  J-4  TO  10  !  Cal  runs:  NH.NM.NL, ZO, PL, PM.PH 

FOR  1-1  TO  32  !  Zoc  ports  per  calibration  run 

FOR  K-0  TO  4  !  Number  of  samples  per  run 

Zoc  cal(I,J)-Zoc_cal(I,J)-K:al(I+K*32+(J-4)*160) 
NEXT  K 

Zoc  cal(I,J)-Zoc  cal(l,J)/5  !  Average  of  5  samples  per  port  I 
NEXT  I 
NEXT  J 
! 

t  Transfer  calibration  data  to  hard  drive. 
ON  ERROR  GOSUB  Purge_file 

DIM  Data_discS(23)  !  Define  string  for  data  file  name 

Zn«Zoc_cal(0,2)  t  Define  Zoc  number 

Data_fileS-FileS(Run,(Zn-l)*3+2)  !  Calibration  data  file 
Data_discS-Data_fileS&Data_driveS 

CREATE  BDAT  Data_discS, 33 , 8*11   !  Create  BOAT  file  of  11*8  byte 
ASSIGN  9Data_path  TO  Data_discS  t  Assign  path  to  hard  drive 
ASSIGN  §Buffer_path  TO  BUFFER  Zoc_cal(*)  .-FORMAT  OFF 
CONTROL  8Buffer_path, 4; 8*11*33   iSet  data  file  length 
TRANSFER  8Buffer_path  TO  8Data_path I  Store  cal  data  on  hard  drive 
ASSIGN  8Buffer_path  TO  *        t  Close  path 
ASSIGN  8Data_path  TO  *  !  Close  path 

PRINT  "Calibration  data:  Run#";Run;".  Zoc#";Zn;",  storage  drive  file 
GOTO  Fin 
Purga_fila:    ! 
IF~ERRN-54  THEN 

PRINT  "Error  occur ed  in  SUB  Cal  da t.   Error: ";ERRN 
PAUSE 
END  IF 
RETURN 
Fin:             I 
SUBEND 
j 

t  Subroutine  loads  raw  and  calibration  data  from  the  storage  drive, 

t  reduces  the  data,  and  stores  the  data  onto  the  storage  drive. 

1  Calibration  data  is  reduced  uaing  the  Least  Squares  Curve  fit  to  obtain 

! 

! 


'  ;Data  discS 


The  raw  pressure  data  is 


coefficients  for  a  third-order  polynomial. 

reduced  using  these  coefficients. 
I  Buffer  arrays  are  replaced  with  standard  arrays  for  data  manipulation. 
1  Utilization  of  Buffers  and  the  TRANSFER  routine  results  in  lost  of  the 
t  first  several  data  bytes  when  data  is  transferred  from  floppy  media  to 
!  the  buffer.   Utilization  of  OUTPUT,  ENTER,  and  arrays  results  in  no 
t  data  lost  with  floppy  media.   Hard  disc  media  Works  well  with  either 
t  data  manipulation  technique  using  buffers  or  standard  arrays. 
SUB  Raw_red_dat ( Zn , Rn ) 

COM  /Names/  Bufferl,Adcl,Buffer2,Adc2,Buffer3,Adc3 .Timer 

COM  /Stats/  REAL  Pulse, Sample_number, Pauae^f or , INTEGER  Cal_mod_id(3) ,Date$ [6] ,Run 

COM  /Files/  FileS(*),Data_driveS    'Data  file  listing  for  99  runs. 

!  Calibration  data  file 
!  Raw  data  file  name 
!  Reduced  data  file  name 


Data_filel$-FileS(Rn, (Zn-l)*3+2) 

Data_file2S-FileS(Rn, (Zn-1)*3+1) 

Data~file3S-FileS(Rn, (Zn-l)*3+3) 

! 

IF  Data_file3$<>"-"  THEN 

GOTO  Fin 
END  IF 
» 

IF  Data  filel$-"-M  THEN 


!  Continue  if  Reduce  data  file 
!  doesnot  exist. 
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Zoc#" ; Zn 


PRINT  "Calibration  flla  doesnot  exist  for  Run#";Rn; 

GOTO  Fin 
END  IF 
! 

ON  ERROR  GOSUB  Error 
DIM  Data_disclS[23] 
DIM  Data_disc2S[23] 
DIM  Data_disc3$(23] 

Data_discl$-Data_filel$&Data_driveS 

REAL  Zoc_cal(32, 10)  'Array  to  handle  calibration  data 

! 


Data_ reduction-    I 

PRINT  "Data  reduction: 
! 


Run#" ; Rn ; " ,  Zoc#" ; Zn 


ASSIGN  8Data_pathl  TO  Data_discl$; FORMAT  OFF 

ENTER  §Data_pathl;Zoc_cal(*)      !Load  raw  calibration  data  into  array 
ASSIGN  §Data_pathl  TO~* 
! 
Calibration  data  reduction  using  Least  Squares  Polynominal  fitting. 
REAL  A(3,3),B(3),C(3) ,Sum_x(6) ,A_inv(3,3)l  Least  Square  reduction  arrays 


!  Loop  for  each  port 


FOR  K-l  TO  32 

MAT  C-  (0) 
MAT  Sum  x-  (0) 


FOR  J-l  TO  6 

FOR  1-4  TO  10  ! 

Sum  x(J)-Sum  x(J)+Zoc  cal(K,I)~J 

NEXT  I 
NEXT  J 


!  Routine  to  reduce  individual  port  cal 
data  into  elements  to  a  power  x~ j 


FOR  1-0  TO  3 

FOR  J-0  TO  3 

A(I,J)-Sum_x(I+J) 

NEXT  J 
NEXT  I 
A(0,0)-7 


I  Derive  A  array 


!  Derive  C  array 


FOR  J-0  TO  3 

FOR  1-4  TO  10 

C(J)K:(J)+Zoc_cal(KfI)"J*Zoc_cal(0,I) 

NEXT  I 
NEXT  J 


MAT  A_inv-  INV(A) 
MAT  B-  A  inv*C 


B  array  is  matrix  of  Least  Square 
coefficients  a0,al,a2,&  a3  for  polynomial 
equation  fitting  calibration  data  for  a 
specified  port 


!  Collect  Least  Square  coefficients  . 

Zoc_cal(K,0)-B(0)  JCoefficient  aO 

Zoc_cal(K,l)-B(l)  JCoefficient  al 

Zoc~cal(K,2)-B(2)  JCoefficient  a2 


Zoc  cal(K,3)-B(3) 


NEXT  K 


(Coefficient  a3 


! 

ASSIGN  8Data_pathl  TO  Data_discl3;FORMAT  OFF 

OUTPUT  9Data_pathl;Zoc_cal(*)       !Store  reduced  calibration  data 

ASSIGN  9Data_pathl  TO  * 

| 

PRINT  "Calibration  data  reduced  and  transferred  to  " ;Data_filelS 

I 

!  Recover  raw  data,  convert  to  real,  reduce  then  store  in  blocks 
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t  of  samples  (32  ports  scanned  par  block) 

Sn-Zoc_cal(0, 1)  (Sample  number. 

INTEGER  Data_integer(l:32)  (Array  to  handle  raw  Integer  data. 

REAL  Data_real( 1:32) ,Data(32)        (Arrays  to  handle  raw  and  reduced 

Data_diac2S-Data_file2S&Data_driveS  (real  data. 

Data_file3S-MZR"&VAL3(Zn)«LDateS&VALS(Rn)   (Reduced  data  file  name. 

Data_di3c3S-Data_file3S&Data_driveS 

CREATE  BDAT  Data_disc3S,Sn. 8*33     !BDAT  file  of  33*8  byte  records. 

ASSIGN  §Data_path2  TO  Data_disc2S; FORMAT  OFF 

ASSIGN  8Data_path3  TO  Data_disc33; FORMAT  OFF 

! 


CONTROL  §Data_path2,5;2 

! 

FOR  Block-1  TO  Sn 

ENTER  §Data_path2;Data_integer(*) 
SELECT  Zoc_cal(0,2) 
CASE  1 

Translata(Adcl,Data_integer(*) .Data  real(*)) 
CASE  2 

Translate(Adc2,Data  integer (*). Data  realf*)) 
CASE  3 

Tr anslate(Adc3. Da ta_ Integer (*) . DatareaK * ) ) 
END  SELECT 
! 
t  Routine  to  reduce  raw  real  data: 
I 


(Set  read  pointer  to  2nd  record 
tin  raw  interger  data  file. 

(Load  raw  data  into  array. 
(Translating  raw  interger  data  into 
I  raw  real  data. 


Data  -  aO  +  al*x  +  a2*x~2  +  a3*x*3 

where  a0,al,a2,  &  a3  are  Least  Square  coefficients,  and  x  is 
the  individual  port  raw  data  value 

Data(0)-Block  I  Store  reduc*  data  sample  number. 

FOR  K-l  TO  32 

Data(K)-Zoc  caKK.OHZoc  eal(K.  l)*Date  r»al(K)+Zoc  cal(K,2)*Data  real(K)~2+Zoc_cal 
NEXT  K 


OUTPUT  8Data_path3;Data(' 
NEXT  Block 
I 


(Store  block  of  reduced  data  into 
Unto  the  file  on  the  designated  drive. 


ASSIGN  §Data_path3  TO  * 

ASSIGN  8Data_path2  TO  * 

PRINT  "Raw  data  reduced  and  transferred  to  ";Data  file3S 

PRINT 

GOTO  Fin 

8250  Error:  (Routine  to  trap  error  in  program. 

8260     PRINT  ERRMS 
8270    PAUSE 
8280    RETURN 
8290  Fin:    I 
8300   SUBEND 

8310  I 

8320   I  Subroutine  to  load  existing  files  required  by  Run  nilmber  for  a  specified 

8330   t  Zoc,  and  assign  existing  files  to  the  FlleS  matrix  for  Data  reduction 

8340   I  and  Llat  files  routines. 

8350  SUB  File_scan(Zn) 

8360     COM  /Stats/  REAL  Pulse, Sample_number , Pause_for, INTEGER  Cal_mod_id(3 ) . DateS.Run 

8370    COM  /Files/  Flle3(*) ,Data_driveS 

8380     DIM  Data_discl3[231,Data_dlsc2S(23).Data_diac3Sl23] 

8390     Rn-1 

8400     Loop— 1 

8410     File_in_storago-0 

8420     ON  ERROR  GOTO  Error 

8430     J-(Zn-l)*3 

8440     WHILE  Loop-1 

8450      Filel-0 

Figure  A17  (cont)  ZOC-14  DAS  Program:  SCAN_ZOC_05 
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Data_filel$-"ZW"&VALS(Zn)&DateS&VAL$(Rn) 

Data_discl$=Data_filel$&Data_driveS 

ASSIGN  @Check_pathl  TO  Data_disclS  (Check  for  existance  of  ZW_. 

FileS(Rn. J+1)-Data_filel$  (Assign  ZW   to  matrix. 

Filel-1 

Data_f 1 le2$-" ZC"&VAL$ ( Zn )&DateS&VAL$ (Rn ) 

Data_disc2S-Data_file2$&Data_drive$ 

ASSIGN  8Check_path2  TO  Data_disc2S  (Check  for  existance  of  ZC_. 

FileS(Rn,J+2)-Data_fllo2$         iAsslgn  ZC_  to  matrix. 

Data_file3$-"ZR"&VALS(Zn)&DateS&VAL$(Rn) 

Data3disc3S-Data_file3S&Data_driveS 

ASSIGN  §Check_path3  TO  Data_disc3S  'Check  for  axistanca  of  ZR_. 

Fiie3(Rn  J+3)-Data_ffile3S         (Assign  ZR_  to  matrix. 


GOTO  Assign_file 
Error:   t  Subroutine  if  ERROR-56, 
IF  ERRN<>56  THEN 
PRINT  ERRMS  • 
PAUSE 
END  IF 
Assign_file: ! 

IF  Filal-1  THEN 

File_in_storage"l 
END  IF~ 
IF  Filel-0  THEN 

IF  File_in_storage-l  THEN 

Loop-0 
END  IF 
END  IF 

ASSIGN  8Check_pathl  TO  * 
ASSIGN  §Check_path2  TO  * 
ASSIGN  §Check_path3  TO  * 
IF  Rn-100  THEN 

Loop— 0 
END  IF 
Rn-Rn+1 
END  WHILE 
Fin:    ! 
Run-Rn-2 
SUBEND 


(Check  storage  disc  again. 
files  donot  exist  for  Rn  and  Zoc 


(Switch  to  begin  entering 
(file  names  in  to  FileS 


(Switch  to  exit  routine 
(once  entries  are  made 
(into  FileS 


(Exit  routine  after  checking 
tup  to  100  possible  Run  #s 
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10  !  Program:  READ_Z0C 

20  !  Description:  Reads  specified  data  compiled  from  program  SCAN_ZOC_04 . 

30  CLEAR  SCREEN 

40  PRINTER  IS  CRT 

50  DIM  Data_dlsclS[231 

60  DIM  Data_dlsc2S[231 

70  INPUT  "Enter  Zoc  #  (1,2,3),  date  (YMMDD),  and  run  #: " , Zoc , DateS ,Run 

80  INPUT  "Print  results  to  screen  or  printer  (0-Screen  l=Printer )" , View 

90  IF  View-1  THEN 

100      PRINTER  IS  711 

110  ELSE 

120     PRINTER  IS  CRT 

130  END  IF 

140  Data_fllel$-MZC"&VALS(Zoc)&DateS&VALS(Run) 

150  Data~file23-"ZR"&vALS(Zoc)&Date$&VAL3(Run) 

160  Data~dlsclS-Data_filel$&":,700,0.1" 

170  Data~disc2$-Data_file2$&": ,700,0,1" 

180  ASSIGN  8Data_pathl  TO  Data_dlscl$ 

190  ASSIGN  §Data_path2  TO  Data_disc2S 

200  REAL  N1.N2 

210  STATUS  §Data_pathl,3;Nl  !  Determine  number  of  records 

220  STATUS  8Data_path2, 3;N2  !  Determine  number  of  records 

230  ALLOCATE  REAL  Cal(Nl-l, 10) ,Data(l:N2, 32) I  Define  REAL  array  of  records 

240  ENTER  eData_pathl;Cel(*) 

250  ENTER  8Datajpath2;Daha< *) 

260  Per iod-Ca 1(0,0) 

270  Hz-1/Period 

280  S amp ie_ numb e r-Ca 1 ( 0, 1) 

290  Zoc-Cal(0,2) 

300  Print_results-  I 

310  PRINT  "Date  Print  Out  for  Zoo  #";Zoc;",  Run  #";Run 

320  PRINT 

330  PRINT  TAB(3); "Period  between  samples  f sec >:"; Period 

3*0  PRINT  TAB( 5) ; "Sample  collection  rate  (H«):  ";Hx 

330  PRINT  TAB ( 5 ); "Number  of  samples  per  port:   ";Sample_number 

360  PRINT  TAB(3) ; "Length  of  data  run  (sec):     " ;Perlod*31*Sample_number 

370  Loop:   I 

380  PRINT 

390  INPUT  "Enter  port  number  for  data  (0-Exit) : " ,Port_number 

400  IF  Port_number-0  THEN  Finish 

410  INPUT  "Enter  First  sample*  of  run  to  be  viewed: " .Sample 1 

420  INPUT  "Enter  End  sample*  of  run: " ,Sample2 

430  PRINT  "Data  Tabulation  for  Port  #" ;Port_number; "from  file:  ";Data  flle2S 

440  PRINT 

450  PRINT  USING  "K, 6X.K, 6X,K" ; "Sample" , "Time  (sec)" , "Pressure  (Hg.)" 

460  FOR  Sample-Samplel  TO  Sample2 

470      PRINT  USING  "5D, 7X.2D. 5D, 8X, 3D. 5D";Sample, ( (Sample-l)*32+(Port_number-l) )*Period,Data 

480  NEXT  Sample 

490  GOTO  Loop 

500  Finish:  ! 

510  ASSIGN  8Data_pathl  TO  * 

520  ASSIGN  8Data_path2  TO  * 

530  DEALLOCATE  Cal(*) 

540  DEALLOCATE  Data(*) 

550  PRINT 

560  PRINT 

570  PRINTER  IS  CRT 

580  LOAD  "ZOC_MENU",10 

590  END 


Figure   A18      ZOC-14    DAS    Program:    READ_ZOC 
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Program:  PLOT_DATA 

Descript:  Plots  reduced  data  compiled  by  SCAN_ZOC_04 . 

Actual  data  points  are  ploted  as  squares.   Square  size 
can  be  adjusted  by  varying  variable  Sc  In  line  110. 

COM  /Plot_labels/  REAL  Xo.Xf , Yo, Yf ,Dx,Dy,TitleS[60] ,X_labelS[50] , Y_labelS[50 J 
| 

CLEAR  SCREEN 

PRINTER  IS  CRT 

Sc-,005 

PRINT  "Program: 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


IScale  size  of  plotting  squares 


PLOT  DATA" 


"Program  plots  the  reduced  data  compiled  by  the  program  SCAN_ZOC_05. 
'Hard  copiea  of  plots  can  be  reproduced  to  either  the  HP  Think  Jet" 
'printer  or  HP  Laser  Jet  printer." 


"Press  F2  to  continue  after  calibration  display  is  plotted" 
"Press  <Shift>  <Dump  Graph>  for  printout  of  plot  on  the  printer' 


1  Load  data 

DIM  Data_discl3(23] 

DIM  Data_disc2S(23] 

INPUT  "Enter  Zoc  #  (1,2,3),  Date  (YMMDD),  Run  #: " ,Zoc,DateS,Run 

File_namelS-"ZC"&vALS(Zoc)&DateS&VALS(Run) 

File_name2$-"ZR"&VAL3(Zoc)&DateS&VALS(Run) 

Data_disclS-File_namelS&" : , 700 ,0,1" 

Data_disc23-FUe_name2S&" : , 700 , 0 , 1" 

ASSIGN  §Data_pathl  TO  Data_discl3 

ASSIGN  8Data_path2  TO  Data_disc23 

REAL  N1.N2 

STATUS  8Data_pathl,3;Nl  ! 

STATUS  §Data_path2,3;N2  ! 


Determine  number  of  records 
Determine  number  of  records 


ALLOCATE  REAL  CaI(Nl-l, 10) ,D«ta(l:N2.32) t  Define  REAL  array  of  records 

ENTER  gDatapathl.CalC*) 

ENTER  8Data_path2;Data(*) 

Period-CaKO.O) 

Hz-1/Period 

Sampi.a_number-Cal(  0 ,  1) 

Zoc-Cal(0,2) 

splay_stats :  ! 

CLEAR~SCREEN 
PRINT 
PRINT 
PRINT 


'Program  plots  reduced  data  from  file 
"Statistics  for  Zoc  #";Zoc 


;File  name2S 


"Data  point  can  be  plotted  as  a  continuous  line,  or  squares. 


PRINT 

PRINT  TAB(5); 

PRINT  TAB(5); 

PRINT  TAB(5); 

PRINT  TAB(5); 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

; 

INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 


"Period  between  samples  (msec): 
"Sample  collection  rate  (Hz): 
"Number  of  samples  per  port: 
"Length  of  data  run  (msec): 


"; Period* 1000 

;Hz 

; Sample_number 

"; ((Sample_number-l)*32+31)*Period*1000 


•Note: 


Wait  for  symbol  '*'  in  lower  right  corner  of  CRT  to  change" 
to  a  '-'  before  pressing  <Shift><Dump  Graph>" 


"Enter  Port  #:",P 

"Enter  min  range  of  pressure  reading  (in  Hg):",Yo 

"Enter  max  range  of  pressure  reading  (in  Hg):",Yf 

"Enter  Start  time  for  plot  (msec):",Xo 

"Enter  Stop  time  for  plot  (msec)):",Xf 

"Enter  type  of  data  point  plotting  (0~Squares  l»Line) 

"Plots  DUMPED  to  Think  Jet  or  Laser  Jet:  (0=TJ  1=LJ)" 


" , Plot_case 
Dump_device 


IF  Dump  device=l  THEN 
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DUMP  DEVICE  IS  9 
ELSE 

DUMP  DEVICE  IS  711 
END  IF 
l 

TltloS-"Reduced  Data  Plot  of  Port#  "&VAL$(P) 

X_labelS~"Time   (msec)" 

Y_label$-"Pressure  (In  Hg)" 

Dx-10  !Tic  marks  per  X-axis  on  plot 

Dy~10  !Tic  marks  per  Y-axis  on  plot 

I 

!  PLot  routine 

CALL  Plot  !Rountine  to  display  graph  background 

FOR  1-1  TO  Sample_number  !Plot  Squares  around  data  points 

Sample_time-((Data(I,0)-l)*32+(P-l))*1000*Period 
SELECT  Plot  case 
CASE  0 

PLOT  Sample_time,Data(I,P),-2 
CALL  Square7Xo.Xf,Yo,Yf,Sc) 
CASE  1 

PLOT  Sample_time,Data(I,P) 
END  SELECT 
NEXT  I 

! 
PAUSE 

Finish:  t 

CLEAR  SCREEN 

INPUT  "Graph  another  calibration  plot:  (  0-No  1-Yes  )", Again 

IF  Agaln-1  THEN  Display  stata 

ASSIGN  8Data_pathl  TO  *~ 

ASSIGN  8Data_path2  TO  * 

DEALLOCATE  Cal(*) 

DEALLOCATE  DataC*) 

PRINTER  IS  CRT 

DUMP  DEVICE  IS  711 

LOAD  "ZCC  MENU", 10 

END 


•Move  pen  to  data  point  position 
(Subrountine  to  plot  squares 


! 

SUB  Plot 


! 


Subroutine  to  display  plot  screen,  less  the  plots  of  any  curves 

for  the  specified  variables  in  the  COM  /Plot_labals/  line. 

COM  /Plot_labels/  Xo.Xf . Yo, Yf ,Dx,Dy,TitleS,X_labelS, Y_label$ 

CLEAR  SCREEN 

KEY  LABELS  OFF 

GINIT 

X_range— Xf-Xo 

Y~range-Yf-Yo 

LORG  6 

MOVE  100*RATIO/2,100 

CSIZE  3 

LABEL  TitleS 

MOVE  100*RATIO/2,0 

LORG  4 

LABEL  X_labelS 

DEG 

LDIR  90 

LORG  6 

MOVE  0,50 

LABEL  Y_labelS 

LDIR  0 

LORG  2 

VIEWPORT    10, 90*RATIO, 10,90 

FRAME 

WINDOW  Xo,Xf,Yo,Yf 


Unitialize   graph   routine 

(Length  of  X-axis 

'length   of  Y-axis 

(Character  ref  pttop  center 

(Move  cursor  to  screen  loc  for  labels 

(Sizes  labeling 

(Plot  title 

(Move  cursor  to  bottom  center  screen 

(Character  ref  pt: bottom  center 

(X-axis  label 

(Desig  degrees  for  LDIR 

(Seta  Y-axis  label  on  end 


(Y-axis  label 

(Reset  label  to  horizontal  orientation. 

(Chr  ref  pt:left  center 

(Sets  graph  screen  size 

(Box  around  VIEWPORT 

(Set  axis  lengths  in  VIEWPORT 
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1310  AXES  X_range/Dx, Y_range/Dy ,Xo, Yo       (Axes  Intersect  at  lower  left 

1320  AXES  X_range/Dx, Y_range/Dy ,Xf , Yf       !Axes  Intersect  at  upper  right 

1330  GRID  X_range/Dx,Y_range/Dy,Xo,Yo,Dx,Dy, .001 

13 A0  CLIP  OFF                       !So  labels  can  print  outside  VIEWPORT 

1350  CSIZE  3.0,. A                   'Axes  label  size 

1360  LORG  6                        ! Number  X-axis 

1370  FOR  I-Xo  TO  Xf  STEP  X_range/Dx 

1380  MOVE  I,Yo-.01*Y_range 

1390  LABEL  USING  "#,K";I 

1A00  NEXT  I 

1A10  LORG  8                        lNumber  Y-axis 

1A20  FOR  I-Yo  TO  Yf  STEP  Y_range/Dy 

1A30  MOVE  Xo-.01*X_rang«7l 

1AA0  LABEL  USING  "#,K";I 

1A50  NEXT  I 

1A60  CLIP  ON 

1A70  ! 

1A80  SUBEND 

1A90  SUB  Square (Xo.Xf , Yo, Yf ,Sc) 

1500  ISubroutire  to  plot  squares  around  the  local  origin  designated 

1510  !by  the  PLOT  statement. 

1520  Xd-Sc*(Xf-Xo)                     !X  displacement  for  RPLOT 

1530  Yd-Sc*(Yf-Yo)*RATIO               !Y  displacement  for  RPLOT 

15A0  RPLOT  -Xd,Yd,-2 

1550  RPLOT  Xd,Yd,-l 

1560  RPLOT  Xd,-Yd,-1 

1570  RPLOT  -Xd.-Yd,-1 

1580  RPLOT  -Xd,Yd,2 

1590  SUBEND 
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Program:  CAL_READ_PR1 

Description:  program  to  operate  CAL2000  calibration  modes  sequentially 
and  read  corresponding  calibration  pressures  in  Hg  as  a 
test  bed  for  later  insertion  into  the  Zoc  scanning  programs 


t  Author : 
! 


Rick  Wendland,  Naval  Postgraduate  School,  Monterey  CA 
Tele: (408)  646-2165 


! 

CLEAR  SCREEN 

PRINTER  IS  CRT 

PRINT  "Program: 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

t 

INPUT 


CAL  READ  PR1" 


This  program  sequentially  sets  the  CAL2000  calibration" 
modes  and  reads  the  corresponding  internal  Pressure  Standard" 
for  that  mode." 


PH 
PM 
PL 
ZO 
NL 
NM 
NH 


Positive  high  range  pressure  to  CAL(+)" 
Positive  mid  range  pressure  to  CAL(+)" 
Positive  low  range  pressure  to  CAL(+)" 
CAL(+)  &  REF(-)  connected  together" 
Negative  low  range  pressure  to  REF(-)" 
Negative  mid  range  pressure  to  REF(-)" 
Negative  high  range  pressure  to  REF(-)" 


(Set  DTK  &  RTS  to  active  for  CAL2000  configuration 


Unitialize  CAL2000 


"Display  results  to  CRT  or  PRINTER?  (0-CRT  1-PRINTER)" .Results 
IF  Results-1  THEN 

PRINTER  IS  711 
END  IF 

CONTROL  9,5;3 
INTEGER  Error, Value 
REAL  Pressured: 7) 

DIM  Conmand_modeS(l:7)[2J .Pressures [5] 
Command  jnodeS( 1 )-"NH" 
Coanand_modeS ( 2 )-"NM" 
Comm*nd_mode3 ( 3 )-"NL" 
CommendjDod  eS ( 4 ) -" ZO" 
Coamand_mode3 ( 5 )""PL" 
Coram and_modeS ( 6 )""FM" 
Command_mode$ ( 7 ) -" PH" 
ON  ERROR  GOTO  Find_error 
OUTPUT  9;"IC";CHRS(13);END 
WAIT  1.5 
Send  command:   t 
FOR  1-1  TO  7 

OUTPUT  9;Command_modeS(I);CHRS(13);END 

WAIT  1.5  (Wait  time  to  allow  calibrator  stabilization 

OUTPUT  9;"RP";CHRS(13);END 

ENTER  9  USING  "#,SD. 5DESZZ.K";Pressure(I) ; Pressures 

GOTO  No_error 
Find_error:   I 

STATUS  9, 10; Error 

STATUS  9,6;Vslue 

Error_codeS-IVALS ( Error , 2 ) 

PRINT  "Register  10: 

PRINT  "Register   6: 
No_error: ! 

IDISP  "F2  TO  CONTINUE" 
! PAUSE 
NEXT  I 
Print_results: ! 
PRINT 
PRINT 

PRINT  "CAL2000: 
PRINT 

PRINT  USING  "2X 
PRINT 


Error_codeS [9,16] 
Value, CHRS( Value) 

! Steps  used  to  determine  wait  time  between 
tCALMOD  steps.   ZOC  output  connected  to  the 
!0-scope,  use  stopwatch  to  measure  settling 
(time  of  dc  voltage  from  ZOC. 


Calibration  modes  and  pressures." 
K,5X,K"; "Mode", "Pressure  (in  Hg)" 
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660  FOR  1-1  TO  7 

670  PRINT  USING  "3X.K, 10X, 3D. «D" ;Command_modeS(I) . Pressured ) 

680  NEXT  I 

690  Finish:   ! 

700  PRINTER  IS  CRT 

710  DISP  "Press  F2  to  continue" 

720  PAUSE 

730  LOAD  "ZOC_MENU",10 

740  END 
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10  !  Program:  TABULATE_ZOC 

20  I  Description:  Tabulates  data  compiled  from  program  SCAN_ZOC_04. 

30  DIM  Data_disclS[23] 

40  DIM  Data2dlsc2S[23] 

SO  Input:   ! 

60  CLEAR  SCREEN 

70  PRINT  "Program  tabulates  Zoc  pressures  and  calibration  data  from" 

80  PRINT  "the  SCAN_ZCC_05  program." 

90  INPUT  "Zoc  #  (1,2,3),  date  (YMMDD),  and  run  #  of  data  to  be  reviewed: " , Zoc .DateS, Run 

100    CLEAR  SCREEN 

110   Data_filel$-"ZC"&VAL$(Zoc)&Date$&VALS(Run) 

120  Data3fila2S-"ZR"&VALS(Zoc)&DateS&VALS(Run) 

130  Data~diaclS-Data_filel$&": ,700,0,1" 

140  Data~disc2$-Data~f ile2S&" : , 700 , 0 , 1" 

150  ASSIGN  8Data_pathl  TO  Data_disclS 

160  ASSIGN  @Data_path2  TO  Data  disc2$ 

170  REAL  N1.N2 

180  STATUS  @Data_pathl,3;Nl             !  Determine  number  of  records 

190  STATUS  @Data_path2,3;N2             !  Determine  number  of  records 

200  ALLOCATE  REAL  C(Nl-l.lO)           !  Define  REAL  array  of  records 

210  ALLOCATE  REAL  D(1:N2,32)           !  Define  REAL  array  of  records 

220  ENTER  8Datajpathl;C(*) 

230  ENTER  8Data_path2;D(*) 

240  ! 

250  INPUT  "First  port  of  calibration  data  to  be  displayed  (0-Exit) : " ,Port_o 

260  IF  Port_o-0  THEN  Finish 

270  INPUT  "Last  port  of  calibration  data  to  be  displayed: " ,Port_f 

280  INPUT  "Print  results  to  CRT  or  Printer  (0K31T  1-Pr inter )?",Prt 

290  IF  Prt-0  THEN 

300  PRINTER  IS  CRT 

310  ELSE 

320  PRINTER  IS  711 

330  END  IF 

340  Print_resulta :  t 

350  PRINT  "Reduced  Data  Tabulation  at  a  sample  rate  of"; 1/C(0, 0) ; "  Hz" 

360  PRINT 

370  Fonnatl:IMAGE  K,2X,K, 2X,K,2X,K 

380  PRINT  USING  Formatl ; "Port" , "Sample  1", "Sample  2", "Sample  3" 

390  Format2:IMAGE  4D.2X, 4D. 3D, 2X, 4D. 3D.2X, 4D.3D 

400  1-1                         !ID  Data  for  a  given  sampling  number 

410  FOR  P-Port_o  TO  Port_f 

420  PRINT  USING  Format2; P,D(I ,P) ,D(I+1, P) ,D(I+2,P) 

430  NEXT  P 

440  PRINT 

450  PRINT  "Calibration  Data  Tabulation  for  Zoc#";Zoe 

460  PRINT 

470  PRINT  "Pressure  voltage  readings:" 

480  Fonnat3 : IMAGE  K, 4X,K, 6X,K, 6X,K, 6X,K, 6X,K, 6X,K, 6X.K 

490.  PRINT  USING  Format3 ; "Port" , "NH" , "NM" . "NL" , "ZO" , "PL" , "PM" , "PH" 

500  Format4 : IMAGE  3D, X, 3D. 3D, X, 3D. 3D, X, 3D . 3D, X, 3D. 3D, X, 3D. 3D, X, 3D . 3D, X.,  3D. 3D 

510  PRINT  USING  Format4; 0 ,C(0, 4 ) ,C(0, 5) ,C(0, 6) ,C(0, 7) ,C(0, 8) ,C(0, 9) ,C(0, 10) 

520  FOR  P-Port_o  TO  Port  f 

530  PRINT  USING  Format4 ;P,C(P, 4 ) ,C(P, 5) ,C(P, 6) ,C(P, 7) ,C(P, 8) ,C(P, 9) ,C(P, 10) 

540  NEXT  P 

550  PRINT 

560  PRINT  "Calibration  polynomial  coefficients  for  Zoc#";Zoc 

570  Format5: IMAGE  K, 8X,K, 16X.K, 16X.K, 16X.K 

580  PRINT  USING  Formats ; "Port" , "A0" , "Al" . "A2" , "A3" 

590  FOR  P-Port_o  TO  Port_f 

600  PRINT  P;TAB(5);C(P,0);TAB(24);C(P,1);TAB(43);C(P.2);TAB(62);C(P,3) 

610  NEXT  P 

620  » 

630  ASSIGN  @Data_pathl  TO  * 

640  ASSIGN  9Data_path2  TO  * 

650  DEALLOCATE  C(*) 
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660  DEALLOCATE  D(*) 

670  ! 

680  INPUT  "Review  data  or  Exit  (0-Exit  1-Review) :" .Action 

690  IF  Action-0  THEN  Finish 

700  PRINT 

710  GOTO  Input 

720  Finish:  ! 

730  PRINTER  IS  CRT 

740  LOAD  "ZOC_MENU".10 

750  END 
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!  Program:  LS_PL0T 

!  Descript:  Plots  calibration  results  and  Least  Square  curve  from 

!  data  provided  by   SCAN_ZOC_04 

I 

COM  /Plot_labels/  REAL  Xo.Xf , Yo, Yf ,Dx,Dy,Title$[60] ,X_labelS[50] , Y_labelS[ 50] 

!  Input  variables  

CLEAR  SCREEN 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
Loop:  ! 
INPUT 
INPUT 
INPUT 


"Program:  LS_PLOT" 

"Program  plots  the  calibration  curve  from  Least  Square  coefficients" 
"and  the  calibration  data  points  contain  in  the  Calibration  Data  File. 


'Press  F2  to  continue  after  calibration  display  is  plotted" 
'Press  <Shift>  <Dump  Graph>  for  printout  of  plot  on  the  printer" 
'Enter  Calibration  Data  file  name: ".Data  fileS 


(Define  data  transfer  path 


Enter  Port  #:",P 

Enter  min  range  of  pressure  reading  (in  Hg):",Xo 
Enter  max  range  of  pressure  reading  (in  Hg):",Xf 
INPUT  "Enter  min  range  of  Zoc  voltage  reading  (Volts) :",Yo 
INPUT  "Enter  max  range  of  Zoc  voltage  reading  (Volts) :",Yf 

INPUT  "Plots  DUMPED  to  Think  Jet  or  Laser  Jet  Printer: (0-TJ  1=LJ)" ,Dump_device 
IF  Dump_device-1  THEN 

DUMP  DEVICE  IS  9 
ELSE 

DUMP  DEVICE  IS  711 
END  IF 
I 

TitleS-"Lea«t  Square  Plot  of  CAL2000  Calibration  (Port*  "&VAL$(P)&"  )" 
Y_l«belS-"Volts" 
X_label$-" Pressure  (In  Bg)" 

Dx-10  (Tic  marks  per  X-axis  on  plot 

Dy-12  ITic  marks  per  Y-axis  on  plot 

CLEAR  SCREEN 
! 

t  Load  data  

DIM  Data_discS[23] 

Data_discS-Data_f ileSft" : , 700 ,0,1" 

ASSIGN  8Data_path  TO  Data_discS 

REAL  N 

STATUS  8Data_path,3;N 

ALLOCATE  REAL  D(N-1,10) 

ENTER  8Data_path.D(*) 

! 

1  PLot  routine ■ 

CALL  Plot  (Rountine  to  display  graph  background 

FOR  X— 3  TO  3  STEP  .1  (Plot  calibration  curve 

Fx-(D(P,0)+D(P,l)*X+D(P,2)*X~2+D(P,3)*X~3) 

PLOT  Fx.X 
NEXT  X 
Sc-.Ol 
FOR  1-4  TO  10 

PLOT  D(0,I),D(P,I),-2 

CALL  Square(Xo,Xf,Yo,Yf,Sc) 
NEXT  I 

ASSIGN  §Data_path  TO  * 
! 

PAUSE 

CLEAR  SCREEN 

INPUT  "Graph  another  calibration  plot: 
DEALLOCATE  D(*) 
IF  Again-1  THEN  Loop 
LOAD  "ZCC_MENU",10 
END 


(Determine  length  of  data  file 
(Allocate  an  array  to  accept  data 
(Load  data  into  memory  in  array  D(*) 


(Scale  size  of  plotting  squares 
(Plot  Squares  around  data  points 
(Move  pen  to  data  point  position 
(Subrountine  to  plot  squares 


(  0-No  1-Yes  )", Again 
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SUB  Plot 

t  Subroutine  to  display  plot  screen,  less  the  plots  of  any  curves 

I  for  the  specified  variables  in  the  COM  /Plot_labels/  line. 

COM  /Plot_labels/  Xo.Xf , Yo.Yf ,Dx,Dy ,TitleS,X_label$, Y_label$ 

CLEAR  SCREEN 

KEY  LABELS  OFF 

GINIT 

X_range-Xf-Xo 

Y~range-Yf-Yo 

L0RG  6 

MOVE  100*RATIO/2,100 

CSIZE  3 

LABEL  Title$ 

MOVE  100*RATIO/2,0 

LORG  4 

LABEL  X_label$ 

0EG 

LOIR  90 

LORG  6 

MOVE  0,50 

LABEL  Y_label3 

LDIR  0  " 

LORG  2 

VIEWPORT  10,90*RATIO,10,90 

FRAME 

WINDOW  Xo.Xf.Yo.Yf 

AXES  X_range/Dx,Y_range/Dy,Xo.Yo 


! Initialize  graph  routine 

{Length  of  X-axis 

! Length  of  Y-axis 

{Character  ref  pt.-top  center 

IMove  cursor  to  screen  loc  for  labels 

1  Sizes  labeling 

(Plot  title 

(Move  cursor  to  bottom  center  screen 

ICharacter  ref  pt: bottom  center 

!X-axis  label 

!0esig  degrees  for  LDIR 

(Sets  Y-axis  label  on  end 


!Y-axis  label 

IReset  label  to  horizontal  orientation. 

IChr  ref  pt, -left  center 

tSeta  graph  screen  size 

IBox  around  VIEWPORT 

ISet  axis  lengths  in  VIEWPORT 

tAxea  intersect  at  lower  left 


AXES  X_range/Dx,Y_range/Dy,Xf ,Yf      (Axes  intersect  at  upper  right 

GRID  X~r«nge/Dx,Y2r«nge/Dy,Xo,Yo,Dx,Dy, .001 

CLIP  OFF  (So  Labels  can  print  outside  VIEWPORT 

CSIZE  3.0,. 4  (Axes  label  size 

LORG  6  (Number  X-axis 

FOR  1-Xo  TO  Xf  STEP  X  range/Dx 
MOVE  I,Yo-.01*Y_range 
LABEL  USING  "#,K";I 

NEXT  I 

LORG  8  ! Number  Y-axis 

FOR  I-Yo  TO  Yf  STEP  Y_range/Dy 
MOVE  Xo-.01*X_range7l 
LABEL  USING  "#,K";I 

NEXT  I 

CLIP  ON 
! 

SUBEND 

SUB  Square (Xo.Xf , Yo, Yf ,3c) 

{Subroutine  to  plot  squares  around  the  local  origin  deaignatad 
!by  the  PLOT  statement. 

Xd-Sc*(Xf-Xo)  !X  displacement  for  RPLOT 

Yd-Sc*(Yf-Yo)*RATIO  !Y  displacement  for  RPLOT 

RPLOT  -Xd,Yd,-2 

RPLOT  Xd,Yd,-l 

RPLOT  Xd,-Yd,-1 

RPLOT  -Xd,-Yd,-1 

RPLOT  -Xd.Yd,2 
SUBEND 
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!  Program:  ZOC_MENU 

IDescription:   Menu  for  utilization  of  the  Zoc-14  and  CALSYS  2000. 

CLEAR  SCREEN 

CONTROL  CRT, 5; 4 

KEY  LABELS  ON 

ON  KEY  1  LABEL  "SCAN  1-3ZOCS"  GOTO  Scan_l 

ON  KEY  2  LABEL  "READ  ZOCDATA"  GOTO  Read_z 

ON  KEY  3  LABEL  "PLOT  ZOCDATA"  GOTO  Plot" 

ON  KEY  4  LABEL  "READ    CALSYS20"  GOTO  Calsys 

ON  KEY  5  LABEL  "TABULATECAL  DATA  "  GOTO  Tab_data 

ON  KEY  6  LABEL  "PLOT  CALDATA"  GOTO  Plot_cal~ 

ON  KEY  7  LABEL  "HP6944A  MENU"  GOTO  Main 

ON  KEY  8  LABEL  "EXIT    MENU"  GOTO  Exit 

! 

PRINT  "Zoc  Electronic  Pressure  Module  Operation  Menu" 

PRINT 

"Item:  Select  Function  Key" 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
! 


Scan  1-3  ZOC-14  Modules  (32  ports  ea)  Fl" 

Read  reduced  data  from  ZOC-14  module  F2" 

Plot  reduced  data  from  ZOC-14  module  F3" 

Read  CALSYS  2000  calibration  pressures  F4" 

Read  tabulated  calibration  data  F5" 

Plot  Calibration  data  F6" 

BP6944A  Main  Menu  F7" 

Exit  Menu  F8" 


290  Hold: 


! 


300   GOTO  Hold 

310  Scan_l:   ! 

320    CLEAR  SCREEN 

330   PRINT  "Loading  SCAN  ZOC  OS" 

340    LOAD  BIN  "/W0RKSTATI0NS7BIN5. 1/TRANS" 

350    LOAD  BIN  "/WORKSTATIONS/BIN5. 1/SERIAL" 

360    LOAD  "SCAN_ZOC_05" , 10 

370  Plot:   ! 


380 
390 


LOAD  BIN  "/WORKSTATIONS/BINS-l/GRAPHX" 
LOAD  "PLOT  DATA" ,10 


400  Read_z: 
410  LOAD 
420  Calsys: 


! 
READ_ZCC" , 10 
! 


430 
440 


LOAD  BIN  "/WORKSTATIONS/BINS. 1/SERIAL" 
LOAD  "CAL  READ  PR1",10 


450  Tab  data: 


f 


460 


LOAD  "TABULATE  ZOC" , 10 


470  Plot  cal: 


i 


480    LOAD  BIN  "/WORKSTATIONS/BIN5. 1/GRAPHX" 

490    LOAD  "LS_PLOT",10 

500  Main:     ! 

510    LOAD  "HP6944A_MENU" 

520  Exit: CLEAR  SCREEN 

530    END 


,10 


Figure  A2  3      ZOC-14    DAS    Program:    ZOC_MENU 
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APPENDIX  B.   ZOC-14  PROGRAM  DEVELOPMENT  CHRONOLOGY 

The  following  prargraphs  provide  a  chronological  summary 
of  the  SCAN_ZOC  program  development  using  the  HP14753A  CAT 
Programs.  First,  the  HP6944A  manuals  required  the  hardware 
configuration  of  the  I/O  cards  be  determined.  Second,  review 
of  the  interface  requirements  to  operate  the  ZOC-14  units 
identified  the  binary  ZOC  address  codes  to  set.  The  HP6973  0A 
Relay  Output  Card  then  provided  the  closure  contacts  required 
to  set  the  required  address  codes28.  The  HP69759A  A/D  Card 
provided  the  signal  conversion  process  to  read  the  ZOC-14. 
I/O  card  edge  connectors  are  fabricated  from  hardware  supplied 
with  the  I/O  cards  to  provide  the  interface  between  the  cards 
and  the  ZOC-14.  The  program  "SCAN_ZOC_01" ,  Figure  Bl, 
provides  control  and  reads  data  voltage  values  from  the  ZOC- 
14.  SCAN_ZOC_01  was  the  simplest  in  the  series  of  development 
programs . 

"SCAN_ZOC_02"  ,  Figure  B2 ,  integrated  new  programming 
features  and  hardware  into  a  complete  data  acquisition  program 
for  utilizing  one  ZOC-14.   The  significant  features  were, 

♦  segmenting  the  main  program  into  "blocks"  of  routines 

♦  utilizing  arrays  for  data  processing 


28 


Refer  to  Ref .  2  6  for  details  on  the  Relay  Output  Card 
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♦  hardware  integration  of  the  CALSYS2000 

♦  integration  of  the  Buffer  and  Timer  Functions 

♦  data  reduction  using  Least  Squares  calibration  curve 
fitting 

♦  data  storage  to  the  hard  drive  using  BUFFER  arrays. 


This  program  did  not  utilize  the  Zero  Operate  and  Calibrate 
method.  Calibration  data  were  first  collected  and  stored  in 
a  BUFFER  array.  Raw  pressure  data  were  then  collected  and 
retained  in  the  HP69791A  Memory  Card.  Calibration  data  were 
reduced  using  the  Least  Squares  routine.  The  calibration  data 
were  then  transferred  to  the  hard  drive  calibration  data  file. 
Raw  pressure  data  were  extracted  from  the  memory  card, 
reduced,  and  stored  on  the  hard  drive  reduced-pressure  data 
file. 

BUFFER  arrays  were  used  for  the  high  speed  data  handling 
capabilities.  A  data  transfer  was  initiated  with  a  buffer  and 
the  computer  executed  the  next  line  without  waiting  for  the 
transfer  to  complete.  This  process  allowed  data  transfer 
while  the  computer  was  performing  the  next  command,  thereby 
minimizing  processing  time. 

SCAN_ZOC_02  did  not  control  the  CALSYS2  000.  Control  was 
provided  by  a  seperate  38  6  desk  top  computer  with  a  modem 
connected  to  the  CALSYS2000  through  the  computer's  RS-232C 
port.  Interfacing  the  HP9000  with  the  CALSYS2  000  required 
resolution  of  RS-232C  data  stream  handling  techniques. 
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"SCAN_ZOC_03",  Figure  B3 ,  introduced  new  features.   Over 
SCAN_ZOC_02,  the  new  features  were; 

♦  the  use  of  subroutines  and  the  CASE  statements  to  provide 
multiple  ZOC-14  interfacing  into  the  data  acquisition 
system. 

♦  incorporating  full  control  of  the  CALSYS2000  using  HP9000 
commands . 

The  techniques  to  control  the  CALSYS2  000  are  discussed  in 
section  II.B.2.d. 

"SCAN_ZOC_04H ,   Figure  B4,   incorporated  the  following 
additional  features, 

♦  incorporation  of  a  second  ZOC-14  into  the  process  to 
validate  multiple  ZOC-14  operation 

♦  command  lines  to  handle  a  second  CALMOD  2000 

♦  incorporation  of  the  Zero  Operate  and  Calibrate  principle. 

The  command  line  to  operate  a  second  CALMOD  did  not  interfere 
with  the  current  CALSYS2000  operation  since  this  command  used 
an  address  character  "2"  and  the  installed  CALMOD  only- 
responded  to  address  character  "1". 

Integration  of  the  "Zero  Operate  and  Calibrate"  principle 
required  collecting  measured  pressure  data  followed  by 
calibration  data.  This  process  posed  a  memory  storage  problem 
for  multiple  ZOCs.  The  problem  was  rectified  by  transferring 
the  raw  data  to  a  hard  drive  data  file  for  recall  off-line. 
Three  advantages  were  associated  with  this  technique: 
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1.  Programming  simplification,  by  not  having  to  identify  raw 
and  calibration  data  separately  on  the  memory  card. 

2 .  Additional  data  collection  capacity  was  made  available  by 
sequential  utilization  of  the  memory  card. 

3.  Multiple  data  and  calibration  runs  could  be  conducted 
which  were  limited  only  by  the  hard  drive  storage 
capacity. 

Data  reduction  could  be  accomplished  at  any  later  time, 
providing  considerable  flexibility.  It  is  to  be  noted, 
however,  that  sufficient  space  on  the  hard  drive  was  required 
to  be  set  aside  to  store  the  reduced  data.  The  user  must 
manage  hard  drive  space  when  acquiring  large  quantities  of 
data.  Transfer  of  raw  and  calibration  data  to  the  floppy  disk 
is  one  solution.  This  would  require  the  user  to  generate  a 
transfer  program  similar  to  the  FILE_XFER  program,  Figure  D17, 
on  the  /UTILity  directory. 

The  Scan  Frequency  input  (1-100,000  Hz)  for  the 
SCAN_ZOC_02,  SCAN_ZOC_03,  and  SCAN_ZOC_04  programs  was 
improperly  implemented.  The  Timer  Function  required  that  a 
specified  "Period"  be  input  to  define  the  length  of  the  "step" 
or  logic-high  portion  of  the  square  wave  trigger  output29. 
The  programs  previous  to  SCAN_ZOC_05  used  the  reciprocal  of 
the  Scan  Frequency  as  the  Period  to  be  input.  This  resulted 
in  square  wave  periods  twice  the  intended  value.  SCAN_ZOC_05 
correctly  adjusts  the  Scan  Frequency  input  used  to  define  the 


29   Ref.  15  defines  the  input  variables  for  the  Timer 
Function. 
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Timer  Function  Period  value,  changing  the  input  frequency 
range  to  "1-50,000  Hz".  In  SCAN_ZOC_05  the  Scan  Frequency 
input  value  is  first  inverted,  then  the  resulting  period  is 
divided  by  two  to  obtain  the  Timer  Period  value.  In  the  first 
three  programs  this  division  by  two  was  omitted  and  thus  the 
programs  gave  a  two-fold  decrease  in  the  data  sampling  rate. 
This  error  was  discovered  during  the  development  of  the 
PLOT_DATA  program,  Figure  A20.  The  program  plots  reduced 
pressure  data  versus  time  for  a  specified  ZOC  port  number. 
The  detected  error  was  detected  when  the  plot  showed  only  half 
the  number  of  data  points  for  the  calculated  time  span.  That 
SCAN_ZOC_05  uses  the  correct  Timer  Period  value  was  verified 
by  the  PLOT__DATA  program. 
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Program:  SCAN_ZOC_01 

Description:  Application  program  to  operate  HP6944A  collecting  voltage 

readings  from  a  ZOC  using  HP6944A  cards. 

Program  provides  voltage  reading  from  a  single  ZOC  for  a 

specified  port  number  1-32. 

This  program  was  primarily  an  instruction  aid  to  learn  about 

HP6944A  operation  and  ZOC  operation. 


Hardware: 


Notes:  1. 


HP6944A  Multi-processor 

-(1)  Relay  Output  Card  (HP69730A) 

-(1)  500  kHz  A/D  Card  (HP69759A) 

(1)  ZOC-14  32  port  Electronic  Pressure  Scanning  Module 

ZOC  address  driven  by  Relay  Output  card  connecting  ZOC's 
A0-A4  leads  to  the  Relay  Output  card's  edge  connector: 


ZOC 

Relay  Contact 

A0 

A 

Al 

C 

A2 

E 

A3 

H 

A4 

K 

Relay  Contacts  1,3,5,7,  &  9  were  connected  together  and 
tied  into  ZOC's  ground  wire  to  complete  the  address  circuit. 
(Ref  ZOC- 14  Instruction  Manual  dwg  8329  sht  3  of  3) 
ZOC's  Output  Plus  lead  was  connected  to  A/D  edge  card 
connection  W,  and  ZOC  Output  Common  connected  to  A/D  Y 
(Ref  HP69759A  Manual  pg  2-3,  fig.  2-1) 

ZOC  powered  by  OA-2  Op  Amp  Designer  internal  power  supply. 
CALSYS2000  sets  the  different  ZOC  modes  through  a  pneumatic 
switch  matrix.   CALSYS2000  defaults  to  the  Zero  Operate  mode 
when  energized  providing  CTL2  (Px  CTL)  control  pressure  to  the 
ZOC,  and  allow  senor  pressure  readings  of  any  of  the  32  ports. 
A  by-pass  valve  is  installed  between  CALSYS2000  PSC  and 
CALMOD  to  minimized  Nitrogen  usage  by  closing  the  valve. 
CALMOD  is  not  operative  until  external  ASCII  commands  are 
provided  via  RS_232C  cable  to  the  CALMOD  following  CALSYS2000 
energizing. 


LOADSUB  ALL  FROM  "CONFIGURE" 
LOADSUB  ALL  FROM  "LIBRARY5. 1" 

COM  /Issscom/  INTEGER  X( 1:1106) 
COM  /Isss_heap/  Isss_heap(1000) 
COM  /Names/  Zoc_address , Zoc_pressure 
Configure ( "Askjne" , "ZOC_CONFIG_01" ) 
| 

System  init 


! These  two  commands  must  be  initated 
!to  append  required  SUB  and  CSUB 
■routines  to  the  end  of  this  program 


! Identify:  Relay  Output,  A/D 
'Load  Configuration  File,  and 
'request  for  file  review/alteration. 
Unitialize  Relay  Output  and  A/D 


BODY  OF  APPLICATION  PROGRAM 


REAL  Port_reading,Port_req 

INPUT  "Enter  Port  #  (1-32):  ",Port_req  ! Input  port  # 


Output (Zoc_address , 32-Port_req) 
Input ( Zoc_pressure , Port_r eading ) 


! Select  port  f>  by  Relay  Output 
(Read  ZOC  voltage  value  from  A/D 


PRINT  "Port  #";Port_req; "  reading:  " ; Port_reading 


STOP 


END  OF  MAIN  PROGRAM 


END 


Figure   Bl      Development   Program:    SCAN_ZOC_01 
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10  !  Program:  SCAN_ZOC_02 

20  !  Description:  Application  program  to  operate  HP6944A  collecting  pressure 

30  !              readings  from  one  ZOC- 14  32  port  module  using  the  CAL2000 

A0  !              to  provide  calibration  data,  reduce  raw  pressure  data  and 

50  !   ,            store  data  to  the  hard  drive. 

60  !  Hardware:   HP6944A  Multi-processor 

70  !             -500  kHz  A/D  Card  (HP69759A) 

80  !             -High  Speed  Memory  Card  (HP69791A) 

90  !            -Timer/Pacer  Card  (HP69736A) 

100  !            -Counter  Card  (HP69775A) 

110  !            CAL2000  Calibration  Module 

120  !            ZCC- 14  32  port  Electronic  Pressure  Scanning  Module 

130  !  Note:  This  program  utilizes  only  one  (1)  Zoc  Module. 

140  I 

150  !  Buffer  Memory:  65536  16-bit  data  words  in  HP69791A 

160  !  Timer:  Maximum  32676  counts  for  one  HP69775A 

170  ! 

180  COM  /Issscom/  INTEGER  X(l:1106) 

190  COM  /Isss_heap/  Isss_heap( 1000) 

200  COM  /Names/  Relay, Buffer, Adcl, Timer 

210  Configure ( "Menu_off" , "ZOC_CONFIG_02" ) 

220  ! Configure ( " Askjne " , " ZOC_CONFIG_02" ) 

230  • 

240  Body:  !  BODY  OF  PROGRAM 

250  ! 

260  Input_variables:  ! INITIAL  PARAMETERS 

270  PRINT  "Program:" 

280  PRINT  "   -  Scans  a  single  Zoc- 14  module  with  32  pressure  sensing  ports." 

290  PRINT  "   -  Stores  reduced  data  on  the  hard  drive  (:, 700,0, 1) . " 

300  PRINT  "   -  CAL2000  Calibration  Module  used  for  the  reference  pressure  standard. 

310  PRINT  "   -  Raw  pressure  data  reduced  using  calibration  data  from  CAL2000" 

320  PRINT  "    and  data  from  Zocs  in  the  calibration  mode." 

330  PRINT 

340  PRINT  "Input  variables:  Scan  frequency  (1-100,000  Hz)" 

350  PRINT  "                 Samples  per  Port  (1-1021)" 

360  ! 

370  I  Max  speed  of  HP  system  is  Period-0. 000002  sec.  or  500  kHz. 

380  ! 

390  PRINT 

400  INPUT  "Enter  data  rate  (l-100kHz) : " ,Hz 

410  INPUT  "Number  of  samples  per  port  (1-1021):  " ,Sample_number 

420  Period-1/Hz 

430  PRINT 

440  PRINT  "Data  acquisition  rate:   " ; 1/Period; "  Hz" 

450  PRINT  "Number  of  samples  per  port:  " „ S amp le_n umber 

460  PRINT  "Total  raw  data  acquisition  time:  " , Period*Sample_number*32; "  sec." 

470  ! 

480  Cal_initlal:  ! CALIBRATION  SET-UP ■ - 

490  ! 

500  REAL  Cal( 1:1120)                  !  Calibration  collection  array  for 

510  t  5  samples  per  port,  7  calibration 

520  !  runs  using  CAL2000. 

530  REAL  Zoc_cal(32, 10)               !  Calibration  data  array.   Format: 

540  Zoc_cal(0,0)-Perlod 

550  Zoc_cal(0 , 1)-Sample_number 

560  ! 

570  !    For  ports  i-1  to  32 

580  !       Row  0:  0  0  0  0  NH  NM  NL  ZO  PL  PM  PH   (pressure  Hg. ) 

590  !       Row  i:  A0  Al  A2  A3  NH  NM  NL  ZO  PL  PM  PH  (LS  coef, press  volts) 

600  !    LS  coef  are  Least  Squares  curve  fit  coef  for  third  order  polynomial. 

610  ! 

620  Calibrate-1                       !  Set  calibration  run 

630  Count-160                         !  Set  count  to  collect  calibration  data 

640  Inderal                           !  Set  index  for  cal  data  collection 

650  PRINT 

Figure   B2      Development   Program:    SCAN_ZOC_02 
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660  PRINT  "Ensure  CAL2000  is  on-line  and  initialized" 

670  PRINT 

680  PRINT  "Set  CAL2000  calibrate  mode  (sequence:  NH,NM,NL, ZO, PL, PM, PH)" 

690  PRINT 

700  Cal_routlne:  ! ■ 

710  INPUT  "Read  RP  value,  and  enter :", Zoc_cal(0, Index+3) 

720  PRINT  "Secondary  Pressure  Standard:  "; Zoc_cal(0 , Index+3 ) 

730  ! 

740  Scan_zocs:  ! 

750  'Note:  Zoc  address  driven  by  Counter  Card  binary  output  at  edge  connection. 

760  !  Calibration  routine  collects  5  samples  per  Zoc  port. 

770  t  Raw  data  collection  follows  calibration  collection  routine. 

780  ! 

790  Wait_tlme-INT(Count*Period)+10     !  Set  Timer  wait  time  to  +10  sees. 

800  Init(Timer)                      !  Initialize  Timer  system 

810  Set_timeout(Timer,Wait_time)      !  Set  Wait_for  period  of  xx  sees. 

820  Set_count (Timer .Count)            !  Set  Count  number  into  Timer 

830  Set_period(Timer, Period)          !  Set  Timer  pulse  length  in  sees. 

840  Init(Buffer)                     !  Initialize  Buffer  for  data  storage 

850  Start(Timer)                     !  Start  data  sample  collection 

860  Wait_for(Timer)                  !  Data  samples  stored  in  Memory  System 

870  ! 

880  !  Collect  calibration  data  from  Memory  System 

890  IF  Calibrate-0  THEN  Reduce_cal_dat 

900  Input_rblock(Buffer,Cal(*),160,(Index-l)*160)!  Collect  cal  run  data 

910  Index-Index+1 

920  IF  Index<8  THEN  Cal  routine        !  Loop  cal  data  collection  runs 

930  ! 

940  !  Collect  raw  data  initialization 

950  CLEAR  SCREEN 

960  PRINT  "Reset  Zoc  mod*  to  read  pressure  data" 

970  DISF  "Press  F2  to  continue' 

980  PAUSE 

990  CLEAR  SCREEN 

1000  PRINT  "Collecting  raw  pressure  data."  t  Set  parameters  to  collect  raw  data 

1010  Calibrate-0 

1020  Count-Sample_number*32            !  Set  Count  as  function  of  sample  number 

1030  !  and  number  of  port  readings  (32)  on 

1040  !  Zoc  for  raw  data  collection. 

1050  GOTO  Scan_zocs                   !  Raw  data  run. 

1060  t 

1070  !  End  of  Zoc  scan  routine 

1080  Reduce_cal_dat:t— —  REDUCE  CALIBRATION  DATA  

1090  I  Routine  to  reduce  Cal(*)  into  Zoc_cal(I,J) 

1100  ! 

1110  REAL  A(3,3),B(3),C(3),Sum_x(6),A  inv(3,3)  !  Least  Square  reduction  arrays 

1120  PRINT 

1130  PRINT  "Reducing  calibration  data." 

1140  FOR  J-4  TO  10                     !  Cal  runs:  NH.NM, NL, ZO, PL, PM, PH 

1150  FOR  1-1  TO  32                   !  Zoc  ports  per  calibration  run 

1160  FOR  K-0  TO  4                  !  Number  of  samples  per  run 

1170  Zoc_cal(I, J)=Zoc_cal(I, J)+Cal(I+K*32+(J-4 )*160) 

1180  NEXT  K 

1190  Zoc_cal(I, J)-Zoc_cal(I , J)/5    !  Average  of  5  samples  per  port  I 

1200  NEXT  I 

1210  NEXT  J 

1220  ! 

1230  Least_squares : ! 

1240  !  Calibration  data  reduction  using  Least  Squares  Polynominal  fitting. 

1250  ! 

1260  FOR  K-l  TO  32                !  Loop  for  each  port 

1270  ! 

1280  MAT  C-  (0) 

1290  MAT  Sum_x-  (0) 

1300  ! 

Figure  B2  (cont)  Development  Program:  SCAN_ZOC_02 
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FOR  J-l  TO  6  !  Routine  to  reduce  individual  port  cal 

FOR  1-4  TO  10  !  data  into  elements  to  a  power  x*J 

Sum_x(J)-Sum_x(J)+Zoc_cal(K,I)~J 
NEXT  I 

NEXT  J 


Derive  A  array 


FOR  1-0  TO  3 

FOR  J-0  TO  3 

A(I,J)-Sum_x(I+J) 

NEXT  J 
NEXT  I 
A(0,0)-7 


FOR  J-0  TO  3 

FOR  1-4  TO  10 

C(J)^r(J)+Zoc_cal(K,I)"J*Zoc_cal(0,I) 

NEXT  I 
NEXT  J 


!  Derive  C  array 


MAT  A_lnv-  INV(A) 
MAT  B-  A  inv*C 


!  B  array  Is  matrix  of  Least  Square 
!  coefficients  a0,al,a2,&  a3  for  polynomial 

t  equation  fitting  calibration  data  for  a 

t  specified  port 

! 

Zoc_eal(K, 0)-B(0)         !  Collect  Least  Square  coefficients 

Zoc~cal(K,l)-B(l) 

Zoc~cal(K,2)-B(2) 

Zoc~cal(K,3)-B(3) 
! 

NEXT  K 
! 

Data_tran«f«r:l TRANSFER  DATA  FM  MEMORY  SYSTEM  TO  HARD  DISC  

I  Routine  transfers  data  from  Memory  System  to  hard  drive  via  buffer  blocks 

t 

!  Transfer  calibration  data  and  coefficients  to  hard  drive 


DIM  Data_disclS[23] 

Data_f i le IS-" ZOC_CAL" 

Data~disc 1$-Data~f ilelS&" : , 700 , 0 , 1 

PURGE  Data_disclS 

CREATE  BDAT  Data_dlsclS, 33, 8*11 

ASSIGN  §Data_pathl  TO  Data_discl3 

OUTPUT  8Data_pathl;Zoc_calT*) 

ASSIGN  8Data_path2  TO  * 


!  Define  string  for  data  file  name 


!  Create  BDAT  file  of  11*8  byte 
I  Assign  path  to  hard  drive 
!  x33  records  and  store  on  hard  drive 
!  Close  buffer  path 


! 

I  Reducing  raw  data  and  transferring  data  to  hard  drive 

PRINT 

PRINT  "Reducing  raw  pressure  data  and  transferring  data  to  hard  drive. 


INTEGER  Data_int(0:32) 

REAL  Data_raw(0:3'2) 

REAL  Data_red(0:32) 

REAL  Data~buffer2(0:32)  BUFFER 

REAL  Data_buffer3(0:32)  BUFFER 

DIM  Data_disc2$[23] 

DIM  Data_disc3S(23] 

REAL  Nd 

Data_file2S-"ZOC_RAW" 

Data_flle3$-"ZOC_REDUCE" 

Data_disc2S-Data_f ile2S&" : , 700 , 

Data_disc3$-Data_file3$&" : , 700 , 

PURGE  Data_dlsc2S 

PURGE  Data_disc3S 

CREATE  BDAT  Data  disc2S , 10 . 8*33 


!  Extracted  INTEGER  raw  data 

!  Translated  REAL  raw  data 

'  REAL  reduced  data 

!  Raw  data  transfer  buffer 

!  Reduced  data  transfer  buffer 

!  Define  string  for  data  file  name 


!  Create  BDAT  file  of  33*8  byte  records 

!  and  initial  10  records 

!  Each  record  contains  one  scan  of  the 


Figure   B2    (cont)    Development   Program:    SCAN_ZOC_02 


130 


1960  !  32  port  Zoc  in  REAL  pressure  values 

1970  !  corrected  by  CAL2000  values 

1980   CREATE  BDAT  Data_disc3S, 10, 8*33 

1990   ASSIGN  §Data_path2  TO  Data_dlsc2S   !  Assign  path  to  hard  drive 

2000  ASSIGN  8Data_path3  TO  Data_dlsc3S 

2010   Count_inblock-32  !  Number  of  samples  per  block  transfered 

2020  Block_number"Count/Count_lnblock   !  Number  of  transfer  blocks 

2030  ! 

2040   FOR  Block-1  TO  Sample  number       !  Loop  routine  to  transfer  data 

2050    ASSIGN  8Buffer_path2  TO  BUFFER  Data_buf fer2 (*); FORMAT  OFF 

2060    ASSIGN  8Buffer_path3  TO  BUFFER  Data_buffer3(*) ; FORMAT  OFF 

2070    Input_lblock(Buffer,Data_int(*),Count_inblock,l)!  Load  data  samples  to 

2080  !  buffer  in  blocks 

2090    Translate(Adcl,Data_int(*),Data_raw(*))»  Load  INTEGER  data  into 

2100  I  REAL  data  buffer  array 

2110  ! 

2120  !  Routine  to  reduce  raw  data  using  polynomial: 

2130  ! 

2140  !    Data  reduce  -  aO  +  al*x  +  a2*x~2  +  a3*x~3 

2150  ! 

2160  !  where  a0,al,a2,  &  a3  are  Least  Square  coefficients,  and  x  is 

2170  !  the  individual  port  raw  data  value. 

2180  t 

2190    FOR  K-l  TO  32 

2200      Data_red(K)-Zoc_cal(K,0)+Zoc_cal(K,l)*Data_raw(K)+Zoc_cal(K,2)*Data_raw(K)*2+Zoc_cal(K,3)*Data_raw(K)"3 

2210    NEXT  K~ 

2220  ! 

2230    Data_raw(Q)-Period*(Block-l)        !  Store  raw  data  sample  time 

2240    Data  red(0)»Period*(Block-l)        !  Store  reduce  data  sample  time 

2250  ! 

2260    MAT  Databuf fer2-  Data_  raw         I  Transfer  raw  &  red  data  to  buffer 

2270         MAT  Dafcajjuf f er3-  Data~red 

2280  t 

2290    CONTROL  §Buffer_path2, 4; (Count_inblock+l)*8!  Close  REAL  buffer  when  full 

2300    CONTROL  8Buffer_path3. 4; (Count~inblock+l)*8 

2310    TRANSFER  8Bufferjpath2  TO  8Data_path21  Transfer  data  to  hard  drive 

2320    TRANSFER  8Buf f er_path3  TO  8Data_path3 

2330    ASSIGN  8Buffer_path2  TO  * 

2340    ASSIGN  8Bufferjpath3  TO  * 

2350  NEXT  Block 

2360  ! 

2370  STATUS  8Data_path3 ,3 ;Nd  !  Determine  data  file  length 

2380  ASSIGN  8Data_path2  TO  •  I  Close  buffer  path 

2390  ASSIGN  8Datajpath3  TO  * 

2400  ! 

2410  CLEAR  SCREEN 

2420  PRINT  "Calibration  data  file:  " ;Data_f ilelS 

2430  PRINT  "Raw  data  file:  " ;Data_file2$  " 

2440  PRINT  "Reduced  data:   " ;Data~f ile3S 

2450  PRINT  "Number  of  records  (scans)  in  " ;Data_file3S; "  is:  ";Nd 

2460  PRINT 

2470  PRINT  "Use  READ_ZOC  to  read  data  from  " ;Data_file2S; "  and  " ;Data_f ile3$ 

2480  PRINT  "Use  TABULATE_ZCC  to  read  calibration  data  from  " ;Data_filelS 

2490   ! 

2500  Finish: ! 

2510  DISP  "Press  F2  to  continue." 

2520  PAUSE 

2530  LOAD  "HP6944A_MENU" , 10 

2540  End_body:l  — END  OF  MAIN  PROGRAM - - 

2550  ! 

2560  END 
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10  !  Program:  SCAN_ZOC_03 

20  !  Description:  Application  program  to  operate  HP6944A  collecting  pressure 

30  !  readings  from  1-3  ZOC-14  32  port  modules  using  the  CAL2000 

A0  t  to  provide  calibration  data,  reduce  raw  pressure  data  and 

SO  !  store  data  to  the  hard  drive. 

60  !  Hardware:   HP6944A  Multi-processors 

70  !  -500  kHz  A/D  Cards  (HP69759A) 

80  !  -High  Speed  Memory  Cards  (HP69791A) 

90  1  -Timer/Pacer  Card  (HP69736A) 

100  !  -Counter  Card  (HP69775A) 

110  t  CAL2000  Calibration  Module 

120  !  ZCC- 14  32  port  Electronic  Pressure  Scanning  Modules 

130  ?  Notes:  1.  This  program  utilizes  up  to  three  (3)  Zoc  Modules  storing  data 

140  !        of  each  Zoc  into  a  separate  buffer  Memory  System  (HP69791A) . 

150  !        2.  COM  /Names  line  and  BDAT  file  ZOC_CONFIG_03  must  match  for  this 

160  !        program  to  operate. 

170  ! 

180  !  Buffer  Memory:  65536  16-bit  data  words  in  HP69791A  per  system 

190  !  Timer:  Maximum  32676  counts  for  one  HP69775A 

200  !  Max  speed  of  HP  system  is  Period-0 . 000002  sec.  or  500  kHz. 

210  ! 

220  COM  /Issscom/  INTEGER  X(l:1106) 

230  COM  /Isss_heap/  Isss_heap(1000) 

240  COM  /Names/  Buffer , Add, Timer 

250  Configure ( "Menu_off" , "ZCC_CONFIG_03" ) 

260  (Configure ("Ask  me" , "ZCC_CONFIG_03") 

270  ! 

280  Input:  I INPUT  VARIABLES -— 

290  PRINT  "Program:   SCAN_ZCC_03" 

300  PRINT  "   -  Scans  1-3  Zoc-14  Modules  (32  pressure  sensing  ports  each)." 

310  PRINT  "    Selected  number  of  Zocs  determines  the  size  of  stored  data  files." 

320  PRINT  "   -  CAL2000  Calibration  Module  used  for  the  reference  pressure  standard." 

330  PRINT  "   -  Raw  pressure  data  reduced  using  calibration  data  from  CAL2000" 

340  PRINT  "    and  data  front  Zocs  in  the  calibration  mode." 

350  PRINT  "   -  Stores  reduced  data  on  the  hard  drive  (-,700,0,1)." 

360  PRINT  "   -  Program  deaigned  to  operate  three  (3)  Memory-A/D  Cards  simultaneously." 

370  PRINT 

380  PRINT  "Input  variables:  Scan  frequency  (1-100,000  Hz)" 

390  PRINT  "  Samples  per  Port  (1-1021)" 

400  PRINT  "  Number  of  Zocs  to  be  used" 

410  PRINT  "  Calibration/Reduced  data  file  name  ID" 

420  I 

430  I  COM  assigns  calibration  data  array  for  3x32  Zoc  ports  (96  total) 

440  COM  /Zoc_dat/  REAL  Zoc_cal(96, 10)  BUFFER 

450  COM  /Stats/  REAL  Period.. Sample  number 

460  PRINT 

470  INPUT  "Enter  data  rate  (l-100kHz) : " ,Hz 

480  INPUT  "Number  of  samples  per  port  (1-1021):  " ,Sample_number 

490  INPUT  "Number  of  Zoc's  connected  to  Multi-programer" , Zoc_number 

500  Period-1/Hz 

510  Wait_for-1.5  !  Wait  time  for  CAL2000  stabilization 

520  PRINT 

530  PRINT  "Data  acquisition  rate: " ;TAB(50) ;Hz; "  Hz" 

540  PRINT  "Number  of  samples  per  port: " ; TAB (50) ;Sample_number 

550  PRINT  "Number  of  Zocs  to  be  scanned: "; TAB (50) ; Zoc_number 

560  PRINT  "Total  number  of  porta  to  be  scanned: " ;TAB( 50 ); Zoc_number*32 

570  PRINT  "Total  calibration  data  acquisition  time: " ; TAB( 50 ) ; Period*5*32+(9*Wait_for ) ; ' 

580  PRINT  "Total  raw  data  acquisition  time: " ;TAB(50) ; Period*Sample_number*32; "  sec." 

590  t 

600  !  Calibration  data  array:  Zoc_cal(96, 10) 

610  !  Format: 

620  !    For  ports  i-1  to  96 

630  !       Row  0,  column  0:  Period 

640  !       Row  0,  column  1:  Sample  number 

650  !       Row  0,  column  2:  Number  of  Zoc3  being  used 
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!       Row  0: NH  NM  NL  ZO  PL  PM  PH   (pressure  Hg .  ) 

!       Row  i:  A0  Al  A2  A3  NH  NM  NL  ZO  PL  PM  PH  (LS  coef, press  volts) 

!  LS  coef  are  Least  Squares  curve  fit  coef  for  third  order  polynomial. 

i 

Zoc_cal ( 0 , 0 )-Perlod 
Zoc_cal(0, l)~Sample_number 
Zoc_cal(0, 2)™Zoc_number 
i 

PRINT 

PRINT  "Ensure  CAL2000  Is  on-line,  calibration  pressure  source  at  90  psl," 

PRINT  "and  calibrator  pressure  cut-off  valve  is  open  (on  back  of  CAL2000)' 

DISP  "Press  F2  to  start  data  acquisition" 

PAUSE 


Initial  cal: 


CALIBRATION  SET-UP 


CLEAR  SCREEN 

PRINT  "Collecting  calibration  data." 

REAL  Call(1120),Cal2(1120),Cal3(1120)!  Calibration  data  array 


REAL  Cal (1120) 

Count-32*5 

CONTROL  9, 5; 3 

DIM  Comnand_modeS(l:7)[2] 

Commandjnod  eS ( 1 ) - " NH" 

Command_modeS ( 2 )»"NM" 

Conmand_modeS ( 3 )-"NL" 

Cotnnand_mod»S(4)«»"ZO" 

ComnandjnodeS ( 5 )""PL" 

Conmand_mode$ ( 6 ) - " PM" 

Command  mode$(7)-"PH" 

OUTPUT  9;"IC";CHRS(13);END 

WAIT  Wait  for 

! 


!  SUB  prog  call  data  array 

!  Set  count  to  collect  calibration  data 

!  Set  DTR  &  RTS  to  active  for  CAL2000 


Initializes  CAL2000 

Allows  CAL2000  pressure  to  stabilize 


990  Collect_cal_dat:  ! COLLECT  RAW  CALIBRATION  DATA  

1000  I 

1010  !  Collect  raw  calibration  data  for  each  CAL2000  setting 

1020  FOR  Index-1  TO  7 

1030  CALL  Cal2000(Command_modeS( Index) , Index,Wait_for) 

1040  CALL  Scan_zocs (Count, Period) 

1050  FOR  Zoc_case-l  TO  Zoc_number 

1060  SELECT  Zoc_casa 

1070  CASE  1 

1080  CALL  Zoc_dat_cal(Buffer,Call(*), Index) 

1090  CASE  2 

1100  CALL  Zoc_dat_cal(Buffer2,Cal2(*), Index) 

1110  CASE  3 

1120  CALL  Zoc_dat_cal(Buffer3,Cal3(*), Index) 

1130  END  SELECT 

1140  NEXT  Zoc_case 

1150  NEXT  Index 

1160  ! 

1170  !  Adjust  Calibration  pressure  sign  to  account  for  CAL2000/Zoc  method 

1180  !  of  setting  negative  calibration  pressures. 

1190  Zoc_cal(0,4)— Zoc_cal(0,4)           !  NH  adjustment 

1200  Zoc_cal(0,5)— Zoc_cal(0,5)           !  NM  adjustment 

1210  Zoc_cal(0,6)— Zoc_cal(0,6)          !  NL  adjustment 

1220  ! 

1230  CLEAR  SCREEN 

1240  PRINT  "Calibration  data  collection  complete." 

1250  PRINT 

1260  PRINT  "***  Secure  Calibrator  pressure  valve  to  conserve  Nitrogen  ***" 

1270  PRINT 

1280  PRINT  "CAL2000  Calibration  modes  and  pressures  (in  Hg):" 

1290  PRINT  TAB(5);,-NH";TAB(15):Zoc_cal(0,4) 

1300  PRINT  TAB(5);"NM";TAB(15);Zoc_cal(0,5) 
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PRINT  TAB ( 5 ) ; "NL" ; TAB ( 15 ) ; Zoc_cal ( 0 , 6 ) 
PRINT  TAB(5);"ZO";TAB(15);Zoc_cal(0,7) 
PRINT  TAB(5);"PL";TAB(15);Zoc_caL(0,8) 
PRINT  TAB(5);"PM";TAB(15);Zoc_cal(0,9) 
PRINT  TAB(5) ; "PH" ;TAB( 15) ; Zoc_cal(0, 10) 
! 
Collect_raw_dat:  !  —  COLLECT  RAW  PRESSURE  DATA 
PRINT  " 
PRINT  "Collecting  raw  pressure  data. 


OUTPUT  9;"IC" ;CHR3(13) ;END 
WAIT  Wait_for 
Count"Sample_number*32 


Set  parameters  to  collect  raw  data 
!  Reinitialize  CAL2000 

!  Set  Count  as  function  of  sample  number 
!  and  number  of  port  readings  (32)  on 
!  Zoc  for  raw  data  collection. 
!  Collect  raw  data  into  Memory  System 


CALL  Scan_zocs (Count, Period) 
PRINT 

PRINT  "Raw  data  collection  complete." 
! 

Reduce_cal_dat: ! REDUCE  CALIBRATION  DATA  

!  Routine  to  reduce  Cal_(*)  into  Zoc_cal(I,J) 
! 

PRINT 

PRINT  "Reducing  calibration  data." 
FOR  Zoc_case»l  TO  Zoc_number 
SELECT  Zoc  case 
CASE  1 

CALL  Zoc_dat_red(Call(*),l) 
CASE  2 

CALL  Zoc_dat_red(C«12(*),2) 
CASE  3 

CALL  Zoc_d«t_red(Cal3<*),3> 
END  SELECT 
NEXT  Zoe_ca«e 
! 

Data_tran«£»r:l TRANSFER  DATA  FM  MEMORY  SYSTEM  TO  HARD  DISC 

!  Routine  transfers  data  from  Memory  System  to  hard  drive  via  buffer  blocks 
t 

CLEAR  SCREEN 
!  Transfer  calibration  data  and  coefficients  to  hard  drive 

ON  ERROR  COSUB  Purge_file 

INPUT  "Enter  Calibration  and  Reduced  Data  file  name  ID  (11  char  max) : " ,File_idS 

Hard_driveS-" : , 700 , 0 , 1" 

REAL~Nd,Nr 
! 
t Transfer  calibration  data  to  hard  drive 

PRINT  "Transferring  calibration  data  to  the  hard  drive." 


!  Define  string  for  data  file  name 

t  Zoc  calibration  file  name 

!  Used  for  file  purging  if  required 

Create  BDAT  file  of  11*8  byte 
Assign  path  to  hard  drive 


DIM  Data_disclS[23] 

Data_filelS-"ZC_"4File_idS 

Fi le_nameS-Data_f i le 13 

Data_disclS-Data_filel$&Hard_driveS 

CREATE  BDAT  Data~discl$, 33, 8*11    ! 

ASSIGN  8Data_pathl  TO  Data_disclS  ! 

ASSIGN  8Buffer_pathl  TO  BUFFER  Zoc_cal(*)  (Assign  buffer  path 

CONTROL  8Buffer_pathl,4;3*ll*(Zoc_number*32+l)  !Set  data  file  length 

TRANSFER  8Buffer_pathl  TO  8Data_pathl   ! Store  cal  data  on  hard  drive 

STATUS  8Data_pathl,3;Nr  !  Number  of  records  in  cal  file 

ASSIGN  8Buffer_pathl  TO  *         !  Close  path 

ASSIGN  8Data_pathl  TO  *  !  Close  path 

I 
! Reducing  raw  data  and  transferring  data  to  hard  drive 

PRINT 

PRINT  "Reducing  raw  pressure  data  and  transferring  data  to  the  hard  drive. 

DIM  Data_disc2St23]  !  Define  string  for  data  file  name 

Data_file2S-"ZR_"&File_idS         !  Reduced  data  file  name. 

File  nameS=Data  file2S  !  Used  for  file  purging  if  required 
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Data  dlsc2S=Data  file2$&Hard  driveS 


CREATE  BDAT  Data  dlac2S, 10 , 8*33 


ASSIGN  §Data_path2  TO  Data_dlsc2S 


!  Create  BDAT  file  of  33*8  byte  records 
!  and  Initial  10  records 
1  Each  record  contains  one  scan  of  the 
!  32  port  Zoc  in  REAL  pressure  values 
!  corrected  by  CAL2000  values 
'    Assign  path  to  hard  drive 


FOR  Zoc_case"l  TO  Zoc_number 
SELECT  Zoc_case 
CASE  1 

CALL  Raw  red  dat (Buffer, l,§Data_path2) 
CASE  2 

CALL  Raw_red_dat(Buffer2,2,@Data_path2) 
CASE  3 

CALL  Raw  red_dat(Buffer3 ,3 ,§Data_path2) 
END  SELECT" 
NEXT  Zoc_caae 
! 


Collect  raw  data,  reduce  data  and 
and  store  reduce  data  on  hard  drive 


!  Reduced  data  file  length 
!  Close  buffer  path 


;Data_filelS; "  containing" ;Nr ; ' 
; Data_f ile2S ; "  containing" ; Nd ; ' 


records . 
records . ' 


Files  ";Data_filelS;"  and  " ;Data_file23; "  are  located  on  hard  drive  '  ;Hard_driveS 
Data  reading  programs  available  from  HF6944A  menu." 


STATUS  §Data_path2,3;Nd 
ASSIGN  SData_path2  TO  * 
[ 

CLEAR  SCREEN 

PRINT  "Calibration  data  file: 
PRINT  "Reduced  data  file: 
PRINT 
PRINT 
PRINT 
t 
Finish: t 
DISP  "Press  F2  to  continue." 
PAUSE 

LOAD  "gP6944A_MENU" , 10 
Purgs_fils:  I 
IF  ERRN-54  THEN 

PURGE  File  nameS&Hard  driveS 
END  IF 
RETURN 
! 

END 
End:  t 

I  Routine  to  operate  CAL2000 
SUB  Cal2000 (Commands, I, Wait_period) 

COM  /Zoc_dat/  REAL  Zoc_cal(98, 10)  BUFFER 

DIM  Pressure3[5]                t  Required  to  read  data  stream 
OUTPUT  9 ; Commands ;CBR3( 13); END   I.  Sets  calibration  mode 
WAIT  Wait_period               I  Allow  CAL2000  to  stabilize 
OUTPUT  9;"RP";CHRS(13);END      !  Reads  CAL2000  calibration  pressure 
ENTER  9  USING  "#,SD. 5DESZZ.K" ;Zoc  cal(0, 1+3) , Pressures 
SUBEND 
I 

!  Routine  to  operate  HP6944A  to  collect  pressure  data  and  store  in  Memory 
!Note:  -Zoc  address  driven  by  Counter  Card  binary  output  at  edge  connection 
!       through  a  7404  open  collector  DTL/TTL  located  in  an  auxiliary  box. 
| 

SUB  Scan_zocs (Count, Period) 
COM  /Names/  Buffer, Add, Timer 
Wait_time-INT(Count*Period)+10 
Init(Timer) 

Se  t_t imeou  t (Timer , Wai  t_time ) 
Set_count (Timer , Count ) 
Set_period (Timer, Period) 
Init(Buffer) 
!INIT(BUFFER2) 
!INIT(BUFFER3) 


t  Set  Timer  wait  time  to  +10  sees. 


Initialize  Timer  system 

Set  Wait_for  period  of  xx   sees. 

Set  Count  number  into  Timer 


!  Set  Timer  pulse  length  in  sees. 

!  Initialize  Buffer  for  data  storage 
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!  Start  data  sample  collection 

!  Oata  samples  stored  In  Memory  System 


Start(Timer) 
Wait_for (Timer) 
SUBEND 
! - _ 

t  Routine  to  read  raw  calibration  data  from  Memory  System 
SUB  Zoc_dat_cal(Buff ,Cal(*),I) 

Input_rblock(Buff,Cal(*),160,(I-l)*160+l) 
SUBEND 
|_ ___ 

!  Routine  to  reduce  Cal_(*)  into  Zoc_cal(I,J) 
SUB  Zoc_dat_red(Cal(*)7Zoc) 

COM  /Zoc_dat/  REAL  Zoc_cal<96, 10)  BUFFER 

REAL  A(3,3),B(3),C(3),Sum_x(6),A_inv(3,3)!  Least  Square  reduction  arrays 
REAL  Calx(256,5) 

FOR  J-4  TO  10  !  Cal  runs:  NH.NM.NL.ZO.PL, PM. PH 

FOR  1-1  TO  32  (  Zoc  ports  per  calibration  run 

Il-(Zoc-l)*32+I 

FOR  K-0  TO  4  !  Number  of  samples  per  run 

Zoc_cal(Il,J)-Zoc_cal(Il,J)+Cal(I+K*32+(J-4)*160) 
Calx<I+(J-4)*32,K+l>^:al(I+K*32+<J-4)*160) 
NEXT  K 

Zoc_cal(Il, J)-Zoc_cal(Il, J)/5  !  Average  of  5  samples  per  port  I 
NEXT  I 
NEXT  J 
| 

GOTO  Least_squares 
!  Print  raw  calibration  data 
PRINTER  IS  711 

PRINT  "Raw  calibration  data  for  Zoc#" ; Zoc 
PRINT 
Format: IMAGE  3D,2X,30.30,2X,3D.3D.2X,30.3D,2X,30.3D,2X,3D.30 
FOR  K-l  TO  7 
PRINT  "RP-";*: 
FOR  J-l  TO  32 
I-J+((K-1)*32) 

PRINT  USING  Fonnat;J,Calx(I,l),Calx(I,2).Calx(I,3),Calx(I.4),Calx(I.5) 
NEXT  J 
NEXT  K 

PRINTER  IS  CRT 
! 

Least_squares: I 
I  Calibration  data  reduction  using  Least  Squares  Polynominal  fitting. 


!  Loop  for  each  port 


FOR  K-l  TO  32 

Kl-(Zoc-l)*32+K 

MAT  C-  (0) 
MAT  Sum  x-  (0) 


FOR  J-l  TO  6  !  Routine  to  reduce  individual  port  cal 

FOR  1-4  TO  10  t  data  into  elements  to  a  power  x"J 

Sum  x(J)-Sum  x(J)+Zoc  cal(Kl(I)"J 
NEXT  T 

NEXT  J 


!  Derive  A  array 


FOR  1-0  TO  3 

FOR  J-0  TO  3 

A(I,J)-Sum  x(I+J) 

NEXT  J 
NEXT  I 
A(0,0)-7 


FOR  J-0  TO  3 
FOR  1-4  TO  10 

C(J)=C(J)+Zoc  cal(Kl,I)"J*Zoc  cal(O.I) 


!  Derive  C  array 
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NEXT  I 
NEXT  J 

MAT  A_inv-  INV(A) 
MAT  B-  A  inv*C 


Zoc_cal(Kl,0)-B(0) 
Zoc_cal(Kl,l)-B(l) 
Zoc  cal(Kl„2)-B(2) 
Zoc~cal(Kl,3)-B(3) 


!  B  array  is  matrix  of  Least  Square 

coefficients  a0,al,a2,&  a3  for  polynomial 
equation  fitting  calibration  data  for  a 
specified  port 

!  Collect  Least  Square  coefficients 


NEXT  K 
SUBEND 


SUB  Raw_r ed_dat (Buf f , Zoc , @Data_path2 ) 
!  Routine  to  reduce  raw  data  using  polynomial: 

COM  /Zoc_dat/  REAL  Zoc_cal(96, 10)  BUFFER 

REAL  Red_data(32)  BUFFER 

REAL  Raw_data(32) 

COM  /Stats/  REAL  Period, Sample_number 

FOR  Block-1  TO  Sample_number  !  Loop  routine  to  transfer  data 

ASSIGN  8Buffer_path2  TO  BUFFER  Red_data(*) ; FORMAT  OFF 
Input_rblock(Buff ,Raw_data(*) ,32, 1)  !  Load  data  samples 
Sample_time-Block*Period 


Red  data  -  aO  +  al*x  +  a2*x~2  +  «3*x~3 


! 
! 

J 

!  where  a0,al,a2,  &  a3  are  Least  Square  coefficients,  and  x  Is 

1  th«  Individual  port  raw  data  value. 

! 

FOR  K-l  TO  32 

Kl-(Zoc-l)*32+K 

Red_data(K)-Zoc_cal(Kl,0)+Zoc_cal(Kl,l)*Raw_data(K)+Zoc_cal(Kl,2)*Raw_data(K)*2+Zoc_cal(Kl,3)*Raw_dat 

NEXT  K 


Red_data(0)"Sample_time 


!  Store  reduce  data  sample  time. 


CONTROL  8Buffer_path2,4; (32+l)*8   !  Close  buffer  when  full 
TRANSFER  9Buf f er_path2  TO  8Data_path2   I  Transfer  data  to  hard  drive 
ASSIGN  §Buffer_path2  TO  * 
NEXT  Block 
SUBEND 
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10  !  Program:  SCAN_ZCC_04 

20  I  Description:  Application  program  to  operate  HP6944A  collecting  pressure 

30  !  readings  from  1-3  ZOC-14  32  port  modules  using  the  CAL2000 

40  !  to  provide  calibration  data,  reduce  raw  pressure  data  and 

50  !  store  data  to  the  hard  drive. 

60  t  Hardware:   (1)  HP6944A  Multi-processors 

70  !  -  (2)'  500  kHz  A/D  Cards  (HP69759A) 

80  !  -  (2)  High  Speed  Memory  Cards  (HP69791A) 

90  !  -  (1)  Timer/Pacer  Card  (HP69736A) 

100  !  -  (1)  Counter  Card  (HP69775A) 

110  t  (1)  HIScan  CAL2000  Calibration  Module 

120  !  (1)  ZOC-14  32  port  Electronic  Pressure  Scanning  Modules 

130  I  Notes:  1.  This  program  utilizes  up  to  three  (3)  Zoc  Modules  storing  data 

140  !        of  each  Zoc  into  a  separate  buffer  Memory  System  (HP69791A). 

150  !        2.  COM  /Names/  line  and  BDAT  file  ZOC_CONFIG_04  must  match  for 

160  !        this  program  to  operate. 

170  t        3.  HiScan  requires  a  short  period  to  stabilize  before  reading 

180  t        the  pressure  valves.   The  Wait_for  statement  (line  340)  sets  this 

190  t        wait  period  in  seconds.   Adjustment  of  the  variable  my  be  required 

200  !        us  additional  Zocs  are  integrated  into  the  Data  Acquisition  System. 

210  I        4.  HiScan  currently  configured  for  one  (1)  calibrator.   This 

220  !        program  is  written  to  operate  one  (1)  or  two  (2)  calibrators. 

230  ! 

240  !  Buffer  Memory:  65536  16-bit  data  words  in  HP69791A  per  system 

250  t  Timer:  Maximum  32676  counts  for  one  HP69775A 

260  t  Max  speed  of  HP  system  is  Period-0. 000002  sec.  or  500  kHz. 

270  ! 

280   COM  /Issscom/  INTEGER  X( 1:1106) 

290   COM  /Isas_heap/  Isss  heapUOOO.i 

300    COM  /Names/  Buf  fe.tl  ,  Add  ,  Buff  er2,  Adc2,  Timer 

3 10  ! Configure ( "Menu_of f " , " ZOC_CONFIG_04 " ) 

320   Configure ("Ask  me". "ZOC  CONFIG  04") 

330  t 

340  Wait  for-1.3  I  Wait  time  for  HiScan  stabilization 

350  t 

360  Input:  I INPUT  VARIABLES - - 

370   PRINT  "Program:   SCAN_ZCC_04" 

380   PRINT  "   -  Scans  1-3  Zoc-14  Modules  (32  pressure  sensing  ports  each)." 

390   PRINT  "   -  Uses  Zero  Operate  Calibrate  (ZOC)  principal:" 

400   PRINT  "      -  Collects  raw  pressure  data  (Zero  Operate)" 

410   PRINT  "      -  Collects  calibration  data  (Calibrate)" 

420   PRINT  "      -  Reduces  raw  data  and  stores  data  on  hard  drive  :, 700, 0,1" 

430   PRINT  "   -  HiScan  Calibration  Module  used  for  the  reference  pressure  standard." 

440   PRINT  "   -  Raw  pressure  data  reduced  using  calibration  data  from  HiScan" 

450   PRINT  "    and  Zocs  in  the  calibration  mode." 

460   PRINT  "   -  Program  designed  to  operate  up  to  three  (3)  Memory-A/D  Cards" 

470   PRINT  "    simultaneously.   COM  /Names/  line  must  match  Multi -programmer" 

480    PRINT  "     (HP6944A)  configuration.   ZOC_CONFIG_04  file  must  be  updated" 

490    PRINT  "     to  the  revised  COM  /Names/  line  when  altered." 

500    PRINT 

510  PRINT  "Input  variables:  Scan  frequency  (1-100,000  Hz)" 

520  PRINT  "  Samples  per  Port  (1-1021)" 

530  PRINT  "  Number  of  Zocs  and  their  capacity" 

540  PRINT  "  Calibration/Reduced  data  file  name  ID" 

550  ! 

560  !  COM  assigns  calibration  data  array  for  32  Zoc  ports  and  standard  values. 

570  COM  /Zoc_dat/  REAL  Zoc_call(33, 10)  BUFFER, Zoc_cal2(33, 10)  BUFFER, Zoc_cal3(33 , 10)  BUFFER 

580  COM  /Stata/  REAL  Perlod.Samplenumber ,Wait_f or, INTEGER  Cal_mod_id(3) 

590  MAT  Zoc_call-  (0) 

600  MAT  Zoc_cal2-  (0) 

610  MAT  Zoc_cal3-  (0) 

620  PRINT 

630  INPUT  "Enter  data  rate  ( l-100kHz) : " ,Hz 

640  INPUT  "Number  of  samples  per  port  (1-1021):  " , Sample_number 

650  INPUT  "Number  of  Zoc ' s  connected  to  Multi -programer" , Zoe_number 
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Cal_mod_id(0)-Zoc_number 
FOR  Zoc_case-l  TO  Zoc_number 

SELECT  Zoc_case 

CASE  1 

INPUT  "Enter  Calibration  Module  number  set  for  Zoc  #1  (Enter  1  or  2) : " ,Cal_mod_id(l) 

CASE  2 

INPUT  "Enter  Calibration  Module  number  set  for  Zoc  #2  (Enter  1  or  2)  :  " ,Cal_mod_id(2) 

CASE  3 

INPUT  "Enter  Calibration  Module  number  set  for  Zoc  #3  (Enter  1  or  2) : " ,Cal_mod_id(3) 

END  SELECT 
NEXT  Zoc_case 

INPUT  "Enter  Calibration  and  Reduced  Data  file  name  ID  (10  char  max) ■ " , Flle_ldS 
Period-1/Hz 
PRINT 

PRINT  "Data  acquisition  rate: " ;TAB(50) ;Hz; "  Hz" 
PRINT  "Number  of  samples  per  port : " ; TAB (50) ; Sample_number 
PRINT  "Number  of  Zoca  to  be  scanned: " ;TAB( 50) ; Zoc_number 
PRINT  "Total  number  of  ports  to  be  scanned: "; TAB (50) ; Zoc_number*32 
PRINT  "Total  raw  data  acquisition  time: " ;TAB(50) ; Perlod*Sample_number*32; "  sec." 
PRINT  "Total  calibration  data  acquisition  time: " ;TAB(50) ;Period*5*32+(7*Wait_for ) ; "  sec." 
! 

Zoc_call ( 0 , 0 )-Period 
Zoc_call(0, 1)-Sample_number 
Zocj:all(0,2)-1 
Zoo~call(0,3)-Cal_mod_id(l) 
Zoc_cal2 (0,0 ) -Pet lod 
Zoc_cal2(0, 1 l -Sample _number 
Zoo_e«12(0,2)-2 
Zoc~cal2(0,3)-Cal_tnod_ld(2) 
Zoc_eal3 (0,0 ) -Per  iod 
Zoc_cal3  (0,1 ')  -Sample_number 
Zoc~cal3(0,2)-3 
Zoc~cal3(0 , 3)-Cal_mod_id(3) 
! 

PRINT 

PRINT  "Ensure  HiScan  is  on-line,  calibration  pressure  source  at  90  psi," 
PRINT  "and  calibrator  pressure  cut-off  valve  is  open  (on  back  of  HiScan)" 
! 
i 


CONTROL  9, 5; 3 

OUTPUT  9;VALS(1); 

OUTPUT  9;VAL3(2); 

WAIT  Wait_for 

t 

DISP   "Press   F2   to   start  data   acquisition" 

PAUSE 


!  Set  DTR  4  RTS  to  active  for  HiScan 

•IC";CHRS(13);ENDI  Initialize  Calibrator  module  #1 

'IC";CHRS(13);END!  Initialize  Calibrator  module  #2 

!  Allow  HiScan  to  set  Zocs 


I  — 


COLLECT  RAW  PRESSURE  DATA 


Collect_raw_dat : 

CLEAR  SCREEN 

PRINT 

PRINT  "Collecting  raw  pressure  data." 

Count»Sample_number*32  !  Set  Count  as  function  of  sample  number 

!  and  number  of  port  readings  (32)  on 
!  Zoc  for  raw  data  collection. 

CALL  Scan_zocs (Count , Period)       !  Collect  raw  data  into  Memory  System 

PRINT 

PRINT  "Raw  data  collection  complete." 

BEEP 


Raw_data_xfer: 
PRINT 


TRANSFER  RAW  DATA  FM  MEMORY  SYSTEM  TO  HARD  DISC 


FOR  Zoc_case-l  TO  Zoc_number 
SELECT  Zoc_case 
CASE  1 


!  Collect  raw  data,  reduce  data  and 
!  and  store  reduce  data  on  hard  drive 
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CALL  Raw_dat( Buffer 1, 1 ,  Sajnple_number ) 
CASE  2 

CALL  Raw_dat ( Buf f er2 , 2 , Sampl8_number ) 
CASE  3 

CALL  Raw_dat (Buf f er3 , 3 , Sample_number ) 
END  SELECT 
NEXT  Zoc  case 


Initial_cal:  ! —  CALIBRATION  SET-UP  — 

t  Calibration  data  array  for  each  Zoc:  Zoc_cal_(33 , 10) 

I  Format: 

!    For  ports  1-1  to  33 

t      Row  0,  column  0:  Period 

t      Row  0,  column  1:  Sample  number 

!      Row  0,  column  2:  Zoc  # 

!      Row  0,  column  3:  Calibrator  module  ID  (1-50  psi  2-15  psl) 

I       Row  0:  NHNMNLZOPLPMPH   (pressure  Hg . ) 

t       Row  1:  A0  Al  A2  A3  NH  NM  NL  ZO  PL  PM  PH  (LS  coef, press  volts) 
!    LS  coef  are  Least  Squares  curve  fit  coef  for  third  order  polynomial. 
! 

PRINT 

PRINT  "Collecting  calibration  data." 

REAL  Call(1120),Cal2(1120),Cal3(1120)!  Calibration  data  array 
Count-32*S  !  Set  count  to  collect  calibration  data 

DIM  Command_modeS(l:7)[2] 
Command  roodeSf 1 )-"NH" 
CommandjnodeS ( 2 )-"NM" 
Coram and  jnodeS ( 3 )-"NL" 
Conmand  jnodeS ( 4 )-" ZO" 
C  Oram  and  mod  e  3  ( 5 )  -  "  PL  " 
CommandjnodeS ( 6 )-" PM" 
Conmand_mode3(7)-"PH" 
I 

Collect  cal  d«t:l—  —  COLLECT  RAW  CALIBRATION  DATA  — — — — — 

! 

t  Collect  raw  calibration  data  for  each  HiScan  setting 
FOR  Index- 1  TO  7 

CALL  Cal2000(Command_mode$(Index) .Index) 
CALL  Sean_zocs (Count , Period) 
FOR  Zoc_case-l  TO  Zoc_number 
SELECT  Zoc_case 
CASE  1 

Input_rblock(Bufferl,Call(*),160,(Index-l)*160+l) 
CASE  2  ~ 

Input_rblock(Buf£er2,Cal2(*),160,(Index-l)*160+l) 
CASE  3  " 

Input_rblock(Buffer3,Cal3'(*),160,(Index-l)*160+l) 
END  SELECT 
NEXT  Zoc_case 
NEXT  Index" 
1 

PRINT 

PRINT  "Calibration  data  collection  complete." 
BEEP 

WAIT  .25 
BEEP 

OUTPUT  9;VAL3(1);"IC";CHRS(13);END!  Initialize  Calibrator  module  #1 
OUTPUT  9;VALS(2);"IC":CHRS(13);ENDt  Initialize  Calibrator  module  #2 
PRINT 

PRINT  "***  Secure  Calibrator  pressure  valve  to  conserve  Nitrogen  ***" 
PRINT 

PRINT  "HiScan  Calibration  modes  and  pressures  (in  Hg):" 
Fmtl: IMAGE  / , 5X, K, 10X.K, 10X ,K. 10X , K 

PRINT  USING  Fmtl;  "Mode",  "Zoc  i"U","Zoc  #2",  "Zoc  #3" 
Fmt2 : IMAGE  6X , K , 10X , 3D . 4D , 8X , 3D . 4D , 3X , 3D . 4D 
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FOR  1-4  TO  10 

PRINT  USING  Fmt2;Command_modeS(I-3).Zoc_call(0,I),Zoc_cal2(0,I),Zoc_cal3(0,I) 

NEXT  I 

! 

Reduce_cal_dat: ! REDUCE  CALIBRATION  DATA  AND  STORE  ON  HARD  DRIVE  

!  Routine  to  reduce  Cal_(*)  into  Zoc_cal_(I , J)  and  store  on  hard  drive 
i 

PRINT 
PRINT 

PRINT  "Hard  drive  name  ->   :, 700, 0,1" 
FOR  Zoc_case-l  TO  Zoc_number 
SELECT  Zoc_case 
CASE  1 

CALL  Zoc_dat  red(Call(*) , Zoc  call(*) ,File_idS) 
CASE  2 

CALL  Zoc_dat  red(Cal2(*) , Zoc_cal2(*) ,File_id$) 
CASE  3 

CALL  Zoc_dat  red(Cal3(*) , Zoc_cal3(*) ,File_idS) 
END  SELECT 
NEXT  Zoc_case 
! 

Reduce_data: ! REDUCE  DATA  AND  STORE  ON  HARD  DRIVE  

!  Routine  loads  raw  and  calibration  data  from  hard  drive,  reduces  the  raw 
!  data,  and  stores  the  reduced  data  to  the  hard  drive. 
! 

FOR  Zoc_case-l  TO  Zoc_number 
SELECT  Zoc  case 
CASE  1 

CALL  Raw  red  datCZoc  calif*), File  idS) 
CASE  2 

CALL  Raw_red  dat(Zoc  caL2(«),File  idS) 
CASE  3 

CALL  Raw_red_det(Zoc_cal3(*) ,File_idS) 
END  SELECT 
NEXT  Zoc  case 

! 
BEEP 

WAIT  .25 
BEEP 

WAIT  .25 
BEEP 


Finish:! 
PRINT 
PRINT 
DISP 
PAUSE 
LOAD 


"Available  Memory:  "; SYSTEMS ("AVAILABLE  MEMORY") 
Press  F2  to  continue  and  return  to  ZOC  Menu." 


ZOC_MENU" , 10 
i 

END 
End:  !■ 

!  Routine  to  operate  HP6944A  to  collect  pressure  data  and  store  in  Memory 
!Note:  -Zoc  address  driven  by  Counter  Card  binary  output  at  edge  connection 
!       through  a  7404  open  collector  DTL/TTL  located  in  an  auxiliary  box. 


SUB  Scan_zocs (Count, Period) 

COM  /Names/  Buf ferl, Add, Buff er2 

Wait_time-INT(Count*Period)+10 

Init(Timer) 

Set_timeout( Timer, Wait_time) 

Set_count ( Timer , Count ) 

Set_period(Timer , Period) 

Init(Bufferl) 

Init(Buffer2) 

UNIT  (BUFFERS) 


Adc2, Timer 
Set  Timer  wait  time  to  +10  sees. 
Initialize  Timer  system 
Set  Wait_for  period  of  xx  sees. 
Set  Count  number  into  Timer 
Set  Timer  pulse  length  in  sees. 
Initialize  Buffer  for  data  storage 
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!  Start  data  sample  collection 

!  Data  samples  stored  in  Memory  System 


Start(Timer) 
Wait_for( Timer) 
SUBEND 
i 

!  Subroutine  to  collect  raw  pressure  data  from  Memory  System  and  store 
!  onto  the  hard  drive  for  future  data  reduction. 
SUB  Raw_dat(Buff .Zn.Sn) 
ON  ERROR  GOSUB  Purge_file 

INTEGER  Raw_data( 1:32672)  BUFFER  I  Integer  raw  data  buffer  for  32*1021 

!  data  samples.   Integer  format  for 


! 


mininum  transfer  time  to  storage. 
Raw  data  file 


Data_f 1 leS-" ZRAW'&VALS ( Zn ) 

Data_discS-Data_f ileS&" : . 700 ,0,1" 

CREATE  BDAT  Data_disc3  1 , 2       t  Create  BDAT  file  of  2  byte  records. 

ASSIGN  §Data_path  TO  Data_discS  !  Assign  path  to  hard  drive 

ASSIGN  §Buffer_path  TO  BUFFER  Raw_data(*) ; FORMAT  OFF 

Input_iblock(Buff ,Raw_data(*) ,Sn*32,l)      !  Load  data  samples 

CONTROL  8Buffer_path,4;32*2*Sn   !  Close  buffer  when  full 

TRANSFER  §Buffer_path  TO  §Data_path    !  Transfer  data  to  hard  drive 

ASSIGN  9Buffer_path  TO  * 

ASSIGN  §Data_path  TO  * 

PRINT  "Raw  pressure  data  for  Zoc  #";Zn;"  transferred  to  the  hard  drive  file  " ;Data_fileS 

GOTO  Fin 
Purge_file:  ! 

IF~ERRN-54  THEN 
PURGE  Data_discS 

END  IF 

RETURN 
Fin:     I 
SUBEND 
I = 

t  Subroutine  control*  calibration  mod*  and  reads  pressure  from  Pressure 

t  Standard  into  Zoe_cal(*)  array. 

SUB  Cal2000<ComniandS(I) 

COM  /Zoo_dat/  REAL  Zoc_call(*)  BUFFER, Zoo_c a L2(*)  BUFFER, Zoc_cal3(*)  BUFFER 
COM  /Stata/  REAL  Pariod,Sampl*_nuniber ,Wait_f or, INTEGER  Cal_mod_id(3) 


Required  to  read  data  stream 
Sets  calibrator  #1  mode 
'  Sets  calibrator  #2  mode 
!  Allow  HiScan  to  stabilize 
I  Read  HiScan  cal  press 


DIM  Pressures f 5)  ! 

OUTPUT  9;VALS(l);CommandS;CHRS(13);END   1 
OUTPUT  9 ; VALSC2 ); Commands ;CHRS( 13); END 
WAIT  Wait_for 
FOR  K-l  TO  Cal_mod_ld(0) 
SELECT  K 
CASE  1 

OUTPUT  9;VALS(Cal_mod_id(l));"RP";CHRS<13);END 
ENTER  9  USING  "#,SD. 5DESZZ,K";Zoc_call(0. 1+3) , Pressures 
CASE  2 

OUTPUT  9;VALS(Cal_mod_id(2));"RP";CHRS(13);END 
ENTER  9  USING  "#,SD. 5DESZZ.K" ;Zoc_cal2(0, 1+3) , Pressures 
CASE  3 

OUTPUT  9;VALS(Cal_mod  id(3) ) ; "RP" ;CHRS( 13) ;END 
ENTER  9  USING  "#,SD. 5DESZZ.K" ; Zoc_cal3(0, 1+3) , Pressures 
END  SELECT 
NEXT  K 

IF  I<-3  THEN  I 

Zoc_call(0, 1+3 )  —  Zoc_call( 0,1+3)  ! 
Zoc_cal2(  0, 1+3  )  —  Zoc_cal2(  0,1+3) 
Zoc_cal3 (0 , 1+3 )— Zoc_cal3 ( 0 , 1+3 ) 
END  IF 
SUBEND 


Account  for  positive  pressures  used 
by  HiScan  in  the  NH.NM,  &   NL  mode. 


Subroutine  reduces  calibration  data  collected  from  Memory  System  and 
HiScan  calibration  pressure  data  into  a  Third-order  polynomial  curve 
fit  using  the  Least  Squares  routine.   The  complete  calibration  array 
Zoc_cal_  is  then  stored  onto  the  hard  drive. 
SUB  Zoc  dat  red(REAL  Cal(*),Zoc  cal(*)  BUFFER, F  idS) 


Figure  B4  (cont)  Development  Program:  SCAN  ZOC  04 
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REAL  A(3,3) ,B(3) ,C(3) ,Sum_x(6) ,A_inv(3, 3) !  Least  Square  reduction  arrays 
! 
!  Converting  Cal(*)  to  Zoc_cal(*) 

FOR  J-4  TO  10  !  Cal  runs:  NH.NM.NL, ZO, PL, PM, PH 

FOR  1-1  TO  32  !  Zoc  ports  per  calibration  run 

FOR  K-0  TO  4  !  Number  of  samples  per  run 

Zoc_cal(I,J)=Zoc_cal(I,J)+Cal(I+K*32+(J-4)*160) 
NEXT  K 

Zoc_cal< I , J)-Zoc_cal(I , J) / 5  t  Average  of  5  samples  per  port  I 
NEXT  I 
NEXT  J 
1 

!  Calibration  data  reduction  using  Least  Squares  Polynominal  fitting. 
FOR  K-l  TO  32  !  Loop  for  each  port 


MAT  C-  (0) 

MAT  Sum  x- 


(0) 


FOR  J-l  TO  6  !  Routine  to  reduce  individual  port  cal 

FOR  1-4  TO  10  !  data  into  elements  to  a  power  x*j 

Sum_x(J)-Sum_x(J)+Zoc_cal(K,I)"J 
NEXT  I 

NEXT  J 


FOR  1-0  TO  3 

FOR  J-0  TO  3 

A(I,J)-Sum_x(I+J) 

NEXT  J 
NEXT  I 
A(0,0)-7 


!  Derive  A  array 


t  Derive  C  array 


FOR  J-0  TO  3 

FOR  1-4  TO  10 

C(J)-C(J)+Zoc  c«l(K,I)"J*Zoc  cal(O.I) 

NEXT  I 
NEXT  J 


MAT  A_inv-  INV(A) 
MAT  B-  A  lnv*C 


!  B  array  is  matrix  of  Least  Square 

coefficients  a0,al,a2,&  a3  for  polynomial 
equation  fitting  calibration  data  for  a 
specified  port 


I  Collect  Least  Square  coefficients 

Zoc_cal(K,0)-B(0) 

Zoc~cal(K,l)-B(l) 

Zoc_cal(K,2)-B(2) 

Zoc~cal(K,3)-B(3) 
I 

NEXT  JC 
! 
!  Transfer  calibration  data  to  hard  drive. 

ON  ERROR  GOSUB  Purge_flle 

DIM  Data_discS[23]  !  Define  string  for  data  file  name 

Data_fileS-"ZC"&VALS(Zoc_cal(0,2))&"_"&F_idS  !  Zoc  calibration  file  name 

Data_discS-Data_f ileS&" : , 700 ,0,1" 

CREATE  BDAT  Data_diac3, 33, 8*11   !  Create  BDAT  file  of  11*8  byte 

ASSIGN  3Data_path  TO  Data_discS  I  Assign  path  to  hard  drive 

ASSIGN  8Buffer_path  TO  BUFFER  Zoc_cal(*) ;F0RMAT  OFF 

CONTROL  8Buffer_path, 4; 8*11*33   flet  data  file  length 

TRANSFER  8Buffer_path  TO  8Data_path! Store  cal  data  on  hard  drive 

ASSIGN  @Buffer_path  TO  *         !  Close  path 

ASSIGN  8Data_path  TO  *  !  Close  path 

PRINT  "Calibration  data  for  Zoc  #" ; Zoc_cal(0 , 2) ; "  transfer  to  the  hard  drive  file 

GOTO  Fin 


;Data  fileS 
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Purge_file:    ! 
IF  ERRN-54  THEN 

PURGE  Data_discS 
END  IF 
RETURN 
Fin:  ! 

SUBEND 


!  Subroutine  loads  raw  data  from  the  hard  drive,  reduces  the  data  using 
!  calibration  coefficients,  and  stores  the  reduced  data  onto  the  hard  drive 
SUB  Raw_red_dat(REAL  Zoc_cal(*)  BUFFER, F_idS) 
COM  /Names/  Buffer l,Adcl,Bu£fer2,Adc2, Timer 
INTEGER  Data_integer(l:32)  BUFFER 
REAL  Data_realCl:32),Data(32)  BUFFER 
DIM  Data_file2S[23] 
ON  ERROR  GOSUB  Purge_file 
Data_filelS-"ZRAW"&VAL$(Zoc_cal<0,2)) 
Data2discl$-Data_f ilelS&" : , 700 , 0 , 1" 
Data_f i Ie2$-"2R"&VAL$ ( Zoc_cal (0,2) )&"_"&F_idS 
Data_disc2$-Data_f ile2S&" : , 700 , 0 , 1" 

CREATE  BDAT  Data~disc2S, 1, 8*33   !  Create  BDAT  file  of  33*8  byte  records. 
ASSIGN  8Data_pathl  TO  Data_discl$ 
ASSIGN  8Data_path2  TO  Data_disc2S 

CONTROL  8Data_pathl,5;2  !Set  read  pointer  to  first  data  byte 

! 

1  Recover  raw  data,  convert  to  real,  reduce  then  store  in  blocks 
!  of  samples  (32  ports  scanned  per  block) 
FOR  Block-1  TO  Zoc_cal(0,l) 

ASSIGN  SBufferjpathl  TO  BUFFER  Data_integer(*) ; FORMAT  OFF 

TRANSFER  SData_pathl  TO  8Buff er_patbl ; COUNT  32*2 

CONTROL  8Buf f er_pathl , 4 ; 32*2 

SELECT  Zoc_cal(0,2) 

CASE  1 

Tranalate(Adcl„Data_integer(*)„Data_real(*)) 
-   CASE  2 

Translate(Adc2,Data_integer(*) ,Data_real(*) ) 

CASE  3 

END  SELECT 
f 


!  Routine  to  reduce  raw  data  using  polynomial: 

! 

!       Data  -  aO  +  al*x  +  a2*x~2  +  a3*x*3 

! 

!  where  a0,al,a2,  &  a3  are  Least  Square  coefficients,  and  x  is 

t  the  individual  port  raw  data  value. 

! 

Sample_time-Zoc_cal (0,0) * (Block- 1 ) 

Data (O)-Sample  time  !  Store  reduce  data  sample  time. 

FOR  K-l  TO  32  ~ 

Data(K)-Zoc  cal(K,0)+Zoc_cal(K, l)*Data_real(K)+Zoc_cal(K,2)*Data_real(K)'2+Zoc_cal(K, 3)*Data_real(K 

NEXT  K 
! 

ASSIGN  8Buffer_path2  TO  BUFFER  Data<*) 

CONTROL  8Buf f er_path2 , 4 ; 8*33 

TRANSFER  8Buf £er_path2  TO  8Data_path2 

ASSIGN  §Buffer_path2  TO  * 
NEXT  Block 
! 

ASSIGN  8Data_pathl  TO  * 
ASSIGN  QData_path2  TO  * 
ASSIGN  8Buffar_pathl  TO  * 

PRINT  "Reduced  data  file  for  Zoc  #" ; Zoc_cal(0,2) ; "  transfer  to  the  hard  drive  file  " ; Data_file2S 
GOTO  Fin 
Purge_file:    ! 
IF  ERRN-54  THEN 
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4560       PURGE  Data_disc2$ 

4570     END  IF 

4580    RETURN 

4590  Fin:    ! 

4600   SUBEND 

4610  ! 


Figure  B4  (cont)  Development  Program:  SCAN_ZOC_04 
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APPENDIX  C.   DATA  FILE  MANAGEMENT 

SCAN_ZOC_05  generates  a  large  number  of  data  files  in  a 
short  period  of  time.  During  program  development,  it  was 
desirable  to  purge  these  files  from  the  "DATA"  hard  drive 
": ,700,0,1"  to  keep  track  of  useable  files  and  remove  unwanted 
files.  The  utility  program  "PURGE_PROG",  Figure  CI,  was 
developed  to  purge  SCAN_ZOC_0 5 -generated  data  files  from  the 
hard  drive.  This  program  can  be  used  when  known  bad  data  has 
been  collected  and  it  is  desirable  to  purge  these  files  from 
the  hard  drive. 

PURGE_PROG  is  located  on  the  UTILity  directory  (Figure 
Dl)  .  It  is  loaded  into  RAM  from  any  directory  and  run  by 
typing, 

1.  LOAD  "/UTIL/PURGE_PROG" ,   followed  by  depressing  the 
<Enter>  key  to  load  the  program  into  the  RAM. 

2.  RUN,  followed  by  the  <Enter>  key  to  execute  the  program. 

The  program  executes  a  CAT  command  and  displays  the  hard 
drive  files  as  illustrated  in  Figure  C2 .  The  program  prompts 
the  user  for  the  date  (YMMDD) ,  the  first  run  number,  and  last 
run  number  of  consecutive  data  files  to  be  purged.  Program 
actions  are  displayed  on  the  screen.  The  program  prompts  the 
user  to  purge  more  files  or  to  re-display  the  remaining  files 


146 


using  the  CAT  command.  If  file  re-display  (2=CAT)  is 
selected,  the  program  prompts  again  for  the  date  and  run 
numbers.   Entering  <0,0,0>  will  exit  the  program. 
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10  [Program  to  purga  designated  files  from  SCAN_ZOC_05 

20  CLEAR  SCREEN 

30  ON  ERROR  GOTO  Cont 

40  DriveS-": ,700,0,1" 

50  Inputl:    ! 

60  CAT  DriveS; SELECT  "Z" 

70  PRINT 

80  Input2:   ! 

90  INPUT  "Enter  date  (YbMJD),  begin  run#,  end  run*  (0,0, 0-Exit)" ,DateS,Run0 ,Runl 

100  IF  RunO-0  THEN  Fin 

101  FOR  Zoc-1  TO  3 

102  FOR  Run-RunO  TO  Runl 

110  FilelS-"ZW"&VALS(Zoc)&DateS&VALS(Run) 

120  File23-"ZC"&vALS(Zoc)&Date$&VAL$(Run) 

130  File3S-"ZR"&VALS(Zoc)&DateS&VAL3(Run) 

140  Purgel:   ! 

150  PURGE  FilelS&DriveS 

160  PRINT  "Purged  file:  ";FilelS 

170  Purge2:   ! 

180  PURGE  File2S&DriveS 

190  PRINT  "Purged  file:  ";File2S 

200  Purge3:   t 

210  PURGE  File3S&DriveS 

220  PRINT  "Purged  file:  ";File3S 

280  GOTO  Next 

290  Cont:   ! 

300  IF  ERRN-56  THEN 

310  SELECT  ERRLN 

320  CASE  ISO 

330  GOTO  Puxg«2 

340  CASE  180 

350  GOTO  Purga3 

360  CASE  210 

370  GOTO  Next 

380  END  SELECT 

390  END  IF 

400  RETURN 

401  Next:   ! 

402  NEXT  Run 

403  NEXT  Zoc 

405  Print:   ! 

406  PRINT 

407  INPUT  "Purge  more?  (0-No  1-Yes  2-CAT)",Act 

408  IF  Act-1  THEN  Input2 

409  IF  Act-2  THEN  Inputl 

410  Fin:   ! 

420  LOAD  "ZOC_MENU" , 10 

430  END 


Figure   CI      TPL   Program:    PURGE    PROG 
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: ,700,0,1 

VOLUME  LABEL: 

DATA 

FILE  NAME  PRO 

TYPE 

ZW1205161 

BDAT 

ZW2205161 

BDAT 

ZW3205161 

BDAT 

ZC1205161 

BDAT 

ZC2205161 

BDAT 

ZC3205161 

BDAT 

ZR1205161 

BDAT 

ZR2205161 

BDAT 

ZR3205161 

BDAT 

REC/FILE  BYTE/REC   ADDRESS     DATE     TIME 
97        2       592    16-May-92  14:54 


97 

2 

97 

2 

33 

88 

33 

88 

33 

88 

3 

264 

3 

264 

3 

264 

594 

16-May-92 

14 

:54 

596 

16-May-92 

14 

:54 

598 

16-May-92 

14 

:55 

611 

16-May-92 

14 

.55 

624 

16-May-92 

14: 

:55 

637 

16-May-92 

14: 

:55 

642 

16-May-92 

14: 

55 

647 

16-May-92 

14: 

55 

Figure  C2  Hard  Drive  Sample  Listing  of  ZOC-14  DAS  Data  Files 
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APPENDIX  D.   TPL  PROGRAMS 

A  selection  of  programs  generated  for  use  at  TPL  are 
documented  in  this  Appendix.  The  programs  are  found  in 
individual  directories  according  to  their  specific  function  or 
purpose.  Figure  Dl  displays  the  major  directories  and  the 
associated  programs.  Each  directory  is  identified  by  the 
forward  slash  character  "/"/  followed  by  the  directory  name, 
and  a  colon,  followed  by  the  system  drive  name  "CS80: ,700" . 
Subdirectories  are  identified  by  the  FILE  TYPE  "DIR".  BASIC 
programs  are  identified  by.  the  FILE  TYPE  "PROG" . 

"AUTOST",  Figure  D2,  is  the  HP9000  initialization  program 
located  in  directory  "/WORKSTATIONS".  This  program  is  called 
by  the  BASIC  system  during  boot-up.  AUTOST  is  used  to  display 
the  Main  Menu  and  define  the  function  keys  used  to  select  the 
Sub  Menus  and  associated  programs  in  the  HP9000  Data 
Acquisition  System. 

Turbocharger  performance  mapping  programs  (prepared  for 
student  laboratories)  are  listed  in  Figures  D3-D6.  The 
program  "SCAN_TEMP",  Figure  D7,  is  used  to  monitor  temperature 
probes.  SCAN_TEMP,  as  listed,  monitors  temperature  probe 
outputs  from  the  Turbocharger  Test  Cell.  "TURBO_MENU" ,  Figure 
D8 ,  is  used  to  select  the  turbocharger  the  above  programs 
(Figures  D3-D7) . 
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Turbomachinery  design  programs  used  in  the  course  AE  44  31 
are  listed  in  Figures  D9-D13. 

Program  "SCAN",  Figure  D14,  is  used  to  operate  the  HG-78K 
Scanivalve  Controller,  HP3495A  Scanner,  HP3456A  Digital 
Voltmeter,  and  records  Scanivalve  transducers.  SCAN  and 
SCAN_TEMP  programs,  located  in  directory  / WORK/ DEVI CE_PROG, 
are  used  in  the  majority  of  programs  required  for  data 
acquisition  at  TPL. 

The  sub-program  "Plot",  Figure  D15,  is  appended  to  the  end 
of  programs  used  to  display  plots  on  the  HP9000  CRT,  or  for 
generating  plots  on  the  various  plotters. 

The  sub-program  "FNDate$" ,  Figure  D16,  is  a  user-defined 
function  to  calculate  numbered  values  for  the  date  in  the 
format  year,  month,  and  day.  FNDate$  is  in  sub-program 
"Date_func",  which  is  located  in  the  directory 
/WORK/FUNCTION_PROG . 

"FILE_XFER",  Figure  D17,  is  a  utility  program  used  for 
file  transfer  and  "purging"  on  the  HP9000.  FILE_XFER  is 
located  in  the  /UTIL  directory. 

The  program  "MAIN_MENU" ,  Figure  D18,  is  used  to  quickly 
restore  the  CRT  screen  to  its  system  display  and  call-up  the 
Main  Menu  screen.  The  program  is  located  in  the  root 
directory  /.  Loading  and  executing  MAIN_MENU  is  accomplished 
by  entering  the  following  command  on  the  HP9000,  and  executing 
the  command  by  depressing  the  Enter  key: 

LOAD  "/MAIN_MENU" ,10   <Enter> 
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/WORKSTATIONS :CS80,  700 

LABEL : 

FORMAT:  HFS 

AVAILABLE  SPACE:      23328 

FILE    NUM 
FILE  NAME       TYPE    RECS 


REC 

LEN  DATE 


MODIFIED 


TIME  PERMISSION  OWNER  GROUP 


BIN5.1         DIR 
STUDENT  DIARY   DIR 
AUTOST  "       PROG 
DIRECTORY  INFO  PROG 


21  32  17-Jan-92  14:25  RWXRWXRWX  18  9 

87  32  U-Apr-92  17:41  RWXRWXRWX  18  9 

11  256  29-Apr-92  15:32  RW-RW-RW-  18  9 

34  256  30-Apr-92  15:11  RW-RW-RW-  18  9 


/TURBINE :CS80, 

700 

LABEL: 

FORMAT:  HFS 

AVAILABLE  SPACE: 

23328 

FILE 

NUM 

REC 

MODIFIED 

FILE  NAME 

TYPE 

RECS 

LEN 

DATE       TIME 

PERMISSION 

OWNER 

GROUP 

MM— ——Ml 

-L"---. 

■■■■■■ 

===» 

— — —■  — =- 

-========= 

===== 

===== 

TURB02 

PROG 

14 

256 

l-Oct-91  17:40 

RW-RW-RW- 

18 

9 

TURB03 

PROG 

14 

256 

l-Oct-91  17:43 

RW-RW-RW- 

18 

9 

TURB04 

PROG 

34 

256 

16-Oct-91  16:01 

RW-RW-RW- 

18 

9 

TURBOl 

PROG 

45 

256 

21-Oct-91   7:59 

RW-RW-RW- 

18 

9 

TURBO_MENU 

PROG 

7 

256 

29-Apr-92  15:52 

RW-RW-RW- 

18 

9 

SCAN_TEMP 

PROG 

8 

256 

30-Apr-92  7:55 

RW-RW-RW- 

18 

9 

TURBO_BAK 

DIR 

4 

32 

20-Apr-92  13:49 

RWXRWXRWX 

18 

9 

/HP6944A:CS80, 

700 

LABEL: 

FORMAT:  HFS 

AVAILABLE  SPACE: 

23528 

FILE 

NUM 

REC 

MODIFIED 

FILE  NAME 

TYPE 

RECS 

LEN 

DATE 

TIME 

PERMISSION 

OWNER  C 

;roup 

fp_data 

BDAT 

18 

256 

3-Jan-92 

7:52 

RW-RW-RW- 

18 

9 

CARDJTEST 

PROG 

444 

256 

3-Jan-92 

7:52 

RW-RW-RW- 

18 

9 

CONFIGURE 

PROG 

127 

256 

3-Jan-92 

7:53 

RW-RW-RW- 

18 

9 

LIBRARY_5 

PROG 

888 

256 

3-Jan-92 

7:54 

RW-RW-RW- 

18 

9 

VERIFY  ~ 

PROG 

282 

256 

3-Jan-92 

8:02 

RW- RW-RW- 

18 

9 

menu  data 

BDAT 

71 

256 

3-Jan-92 

12:20 

RW-  RW-RW- 

18 

9 

MENUER 

PROG 

136 

256 

3-Jan-92 

13:40 

RW-RW-RW- 

18 

9 

FRONT_P 

PROG 

174 

256 

3-Jan-92 

13:41 

RW-RW-RW- 

18 

9 

HP694  4A_BAK 

DIR 

8 

32 

30-Apr-92 

12:57 

RWXRWXRWX 

18 

9 

TABULATE_ZOC 

PROG 

13 

256 

26-Apr-92 

15:40 

RW-RW-RW- 

18 

9 

READ_ZOC 

PROG 

11 

256 

26-Apr-92 

17:30 

RW-RW-RW- 

18 

9 

SCAN  ZOC_05 

PROG 

1146 

256 

30-Apr-92 

13:02 

RW-RW-RW- 

18 

9 

CAL_READ_PR1 

PROG 

12 

256 

30-Apr-92 

13:49 

RW-RW-RW- 

18 

9 

LS_PLOT  " 

PROG 

22 

256 

30-Apr-92 

14:33 

RW-RW- RW- 

18 

9 

DOCUMENT 

PROG 

59 

256 

13-Apr-92 

8:45 

RW-RW-  RW- 

18 

9 

VER_CFO 

BDAT 

6 

256 

24-Apr-92 

16:51 

RW-RW-  RW- 

18 

9 

HP694  4A_MENU 

PROG 

7 

256 

7-Apr-92 

7:18 

RW-RW-RW- 

18 

9 

DEVELOPMENT 

DIR 

11 

32 

30-Apr-92 

15:07 

RWXRWXRWX 

18 

9 

PLOT_DATA 

PROG 

29 

256 

30-Apr-92 

14:18 

RW-RW- RW- 

18 

9 

ZOC_CONFIG  05 

BDAT 

5 

256 

26-Apr-92 

16:53 

RW-RW-  RW- 

18 

9 

ZOC~MENU 

PROG 

9 

256 

24-Apr-92 

12:55 

RW-RW-  RW- 

18 

9 

Figure   Dl      Listing  of  TPL  Programs  by  Directory 


152 


/DESIGN:CS80, 

700 

LABEL: 

FORMAT:  HFS 

AVAILABLE  SPACE: 

23528 

FILE 

NUM 

FILE  NAME 

TYPE 

RECS 

-============: 

■  ===== 

===—=. 

DESIGN_BAK 

DIR 

4 

DESIGN  MENU 

PROG 

8 

R_4431T 

PROG 

21 

A~4431T 

PROG 

21 

TURB3 

PROG 

29 

TURB4 

PROG 

38 

REC      MODIFIED 

LEN  DATE        TIME  PERMISSION  OWNER  GROUP 


32  30-Apr-92  8:07 
256  16-D«c-91  16:41 
256  16-D8C-91  13:59 
256  16-Dec-91  14:01 
256  17-Dsc-91  14:32 
256  20-D8C-91  16:42 


RWXRWXRWX 

18 

9 

RW-RW-RW- 

18 

9 

RW-RW-RW- 

18 

9 

RW-RW-RW- 

18 

9 

RW-RW-RW- 

18 

9 

RW-RW-RW- 

18 

9 

/WORK:CS80,  700 
LABEL: 
FORMAT:  HFS 
AVAILABLE  SPACE: 

FILE  NAME 


FILE 
TYPE 


23528 
NUM 
RECS 


REC 

LEN  DATE 


MODIFIED 


TIME  PERMISSION  OWNER  GROUP 


FUNCTION_PROG  DIR  12 
DEVICE_PROG  DIR  22 
DISCREP  DOC     PROG       5 


32  20-Apr-92  14:35 

32  30-Apr-92  15:29 

256  30-D«c-91  11:59 


RWXRWXRWX 
RWXRWXRWX 
RW-RW-RW- 


18 
18 
18 


/WORK/DEVICE_PROG:CS80,  700 

LABEL: 

FORMAT:  HFS 

AVAILABLE  SPACE:      23528 

FILE    NUM   REC     MODIFIED 
FILE  NAME       TYPE    RECS    LEN  DATE 


TIME  PERMISSION  OWNER  GROUP 


CAL 

PROG 

CAL  READ  PR 

PROG 

SET~BRIDGE 

PROG 

READ  PORT 

PROG 

SCAN_PORT 

PROG 

BCD  CONVERT 

PROG 

SCAN_TEMP 

PROG 

UNPACK 

PROG 

HP37  PACK 

PROG 

HP373BENCH 

PROG 

HP37  BCD 

PROG- 

HP37-56 

PROG 

HP56_PACK 

PROG 

HP37  EXT1 

PROG 

HP56SRQ 

PROG 

HP56MEM 

PROG 

HP37EXT2 

PROG 

HP37  A(*) 

PROG 

HP37  GRAPH 

PROG 

HP37_INT 

PROG 

SCAN 

PROG 

OUTPUT  9 

PROG 

7  256  20-Apr-92  14:15  RW-RW-RW-  18  9 

11  256  20-Apr-92  14:16  RW-RW-RW-  18  9 

6  256  20-Apr-92  14:16  RW-RW-RW-  18  9 
5  256  20-Apr-92  14:16  RW-RW-RW-  18  9 
4  256  20-Apr-92  14:17  RW-RW-RW-  18  9 
4  256  20-Apr-92  14:17  RW-RW-RW-  18  9 

8  256  20-Apr-92  14:18  RW-RW-RW-  18  9 

4  256  20-Apr-92  14:23  RW-RW-RW-  18  9 

5  256  20-Apr-92  14:23  RW-RW-RW-  18  9 

7  256  20-Apr-92  14:24  RW-RW-RW-  18  9 

2  256  20-Apr-92  14:24  RW-RW-RW-  18  9 

3  256  20-Apr-92  14:24  RW-RW-RW-  18  9 
7  256  20-Apr-92  14:24  RW-RW-RW-  18  -9 

4  256  20-Apr-92  14:24  RW-RW-RW-  18  9 

3  256  20-Apr-92  14:26  RW-RW-RW-  18  9 

5  256  20-Apr-92  14:26  RW-RW-RW-  18  9 

4  256  20-Apr-92  14:26  RW-RW-RW-  18  9 
3  256  20-Apr-92  14:26  RW-RW:RW-  18  9 

12  256  20-Apr-92  14:27  RW-RW:RW-  18  9 
12  256  20-Apr-92  ±4:27  RW-RW-RW-  18  9 
11  256  27-Apr-92  14:13  RW-RW-RW-  18  9 

5  256  30-Apr-92  15:29  RW-RW-RW-  18  9 
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/WORK/FUNCTION 

_PROG:CS80,  700 

LABEL: 

FORMAT:  HFS 

AVAILABLE  SPACE: 

23528 

FILE 

HUM 

REC 

MODIFIED 

FILE  NAME 

TYPE 

RECS 

LEN 

DATE 

TIME 

PERMISSION 

OWHER 

GROUP 

■■■—— ■■■!■■ 

--*.— 

m—  - 

mm 

■  MM—— 

«._» 

>3t  =  =  »»99 

■on 

===s= 

GRAPH 

PROG 

9 

256 

20-Apr-92 

14:20 

RW-RW-RW- 

18 

9 

GRAPH  PLOTTER 

PROG 

6 

256 

20-Apr-92 

14:20 

RW-RW-RW- 

18 

9 

Plot 

PROG 

10 

256 

20-Apr-92 

14:20 

RW-RW-RW- 

18 

9 

D«te_func 

PROG 

4 

256 

20-Apr-92 

14:20 

RW-RW-RW- 

18 

9 

Square 

PROG 

4 

256 

20-Apr-92 

14:21 

RW-RW-RW- 

18 

9 

BUFFI 

PROG 

9 

256 

20-Apr-92 

14:21 

RW-RW-RW- 

18 

9 

LEAST_SQUARE 

PROG 

6 

256 

20-Apr-92 

14:21 

RW-RW-RW- 

18 

9 

LS  TEST 

PROG 

18 

256 

20-Apr-92 

14:21 

RW-RW-RW- 

18 

9 

LS_PLOTl 

PROG 

17 

256 

20-Apr-92 

14:21 

RW-RW-RW- 

18 

9 

TEST 

BDAT 

4 

256 

20-Apr-92 

14:22 

RW-RW-RW- 

18 

9 

DATA_LOGGIN 

PROG 

4 

256 

20-Apr-92 

14:22 

RW-RW-RW- 

18 

9 

STOPWATCH 

PROG 

4 

256 

20-Apr-92 

14:23 

RW-RW-RW- 

18 

n 

/UTIL:CS80. 

700 

LABEL: 

FORMAT:  HFS 

AVAILABLE  SPACE: 

23528 

FILE 

NUM 

REC 

MODIFIED 

FILE  NAME 

TYPE 

RECS 
153 

LEN 
256 

DATE 
31-Jul-91 

TIME 
16:54 

PERMISSION 

OWNER 
18 

GROUP 

VERIFY 

PROG 

RW-RW-RW- 

9 

HPIB_CHECK 

PROG 

4 

256 

9-Aug-91 

9:03 

RW-RW-RW- 

18 

9 

BACKUP 

PROG 

397 

256 

23-Aug-91 

14:03 

RW-RW-RW- 

18 

9 

RETURN  MAIH 

PROG 

2 

256 

20-Apr-92 

14:34 

RW-RW-RW- 

18 

9 

MAIN  MENU 

PROG 

2 

256 

20-Apr-92 

16:02 

RW-RW-RW- 

18 

9 

PURGE_PROG 

PROG 

6 

256 

26-Apr-92 

15:49 

RW-RW-RW- 

18 

9 

COPY  FILES 

PROG 

4 

256 

30-Apr-92 

7:45 

RW-RW-RW- 

18 

9 

FILE_XFER 

PROG 

6 

256 

30-Apr-92 

8:20 

RW-RW-RW- 

18 

9 

LASERJET 

PROG 

3 

256 

30-Apr-92 

15:58 

RW-RW-RW- 

18 

9 
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! Program:  AUTOST 

(Description:  Program  is  loaded  immediately  following  system  boot-up 

!  providing  an  initial  User  to  Computer  interface  through 

!  Function  Key  menu  selection. 

CLEAR  SCREEN 

KEY  LABELS  ON 

DUMP  DEVICE  IS  711 

ON  KEY  1  LABEL  "  TURBO  CHARGER"  GOTO  Turbo 

ON  KEY  2  LABEL  "COMPRESSLAB"  GOTO  Compressor 

ON  KEY  3  LABEL  "DESIGN"  GOTO  Design 

ON  KEY  4  LABEL  "MULTI   PROGRAM"  GOTO  Hp6944a 

ON  KEY  5  LABEL  "WORK    DIR  "  GOTO  Work 

ON  KEY  6  LABEL  "BACKUP"  GOTO  Backup 

ON  KEY  7  LABEL  "PROGRAM  LISTINGS"  GOTO  Directory 

ON  KEY  8  LABEL  "EXIT    MENU"  GOTO  Exit 

i 

PRINT  "HP9000  Series  300  Computer  Data  Acquisition  System" 
PRINT 

Item:  Select  Function  Key" 


"  Turbocharger  Lab  (*)  Fl" 

"  Transonic  Compressor  Lab  (*)  F2" 

"  Turbine  Design  Programs  (*)  F3" 

"  Multi-Programmer  Opertion  (HP6944A)  F4" 

"  Work  directory  (*)  F5" 

"  Backup  Files  F6" 

*  HP9000  Program  Listing  and  Information   F7" 

*  Exit  Menu  F8" 

'Rota:  Binaries  required  for  HP14753A  CAT  program  are  loaded" 
"      to  operate  the  HP6944A  Multi-programmer." 

Additional  binaries  are  loaded  with  selection  (*)." 

If  Error  2  occurs:  Memory  overflow;  reboot  system  using" 
SYSBCOT  statement  and  reselect  desired  directory." 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

! 

370  Hold:   ! 
380    GOTO  Hold 
390  Turbo:   t 

GOSUB  Load_add  bin 

MASS  STORAGE  IS  "/TURBINE- 
LOAD  "TURBO_MENU" , 10 
430  Compressor:  ! 

440   GOTO  Hold 
450  Design:  I 
460   GOSUB  Load  add_bin 
470   MASS  STORAGE  IS  "/DESIGN" 
480   LOAD  "DESIGN_MENU" , 10 
490  Hp6944a:   ! 
500   CLEAR  SCREEN 
510   MASS  STORAGE  IS  "/HP6944A" 
520    LOAD  "HP6944A_MENU" , 10 
530  Work:    ! 
540    GOSUB  Load_add_bin 
550   MASS  STORAGE  IS  "/WORK" 
560   GOTO  Exit 
570  Backup:   ! 

580    LOAD  "/UTIL/BACKUP", 10 
590    GOTO  Exit 
600  Directory: ! 
610   MASS  STORAGE  IS  "/WORKSTATIONS" 

LOAD  "DIRECTORY" , 10 

GOTO  Exit 


400 
410 
420 


620 

630 


640  Load_add_bin: ! 

650   LOAD  BIN  "/WORKSTATIONS/BIN5 . 1/GRAPHX" 
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660  LOAD  BIN  " /WORKSTATIONS /BIN5 . 1 /TRANS" 

670  LOAD  BIN  "/WORKSTATIONS/BIN5 . 1/XREF" 

680  LOAD  BIN  "/WORKSTATIONS/BIN5. 1/SERIAL" 

690  LOAD  BIN  "/ WORKSTATIONS / BIN5. 1 /COMPLEX" 

700  RETURN 

710  Exit: CLEAR  SCREEN 

720  END 


Figure  D2  (cont)  TPL  Program:  AUTOST 
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231 

240 
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270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 
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540 

550 

560 

570 

580 

590 

600 
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640 


FILE  NAME:   "TURBOl" 

DISK  LABEL:   "/TURBINE" 

DESCRIPTION: 

THIS  PROG  RECORDS  AND  REDUCES 

RAW  DATA  FOR  THE  T-18A40  TURBO-CHARGER 

AS  SET  UP  IN  APRIL/MAY  1980  (RESET  AUG  1991) 

CHAN  &   PORT  DESIGNATIONS  ARE  UNIQUE 

VARIABLES  FOR  S/V  SECTION 
V-DESIRED  S/V 
P-PRESENT  S/V  PORT 
VARIABLES  FOR  TEMP  SECTION 
SS-SCANNER  LISTEN  CODE 
S-SCANNER  # 
C-CHANNEL 
V-DVM  READING 
AUTHOR:  TERRY  EARGLE 

DATE:  JUL  79  (MOD  MAY  80  BY  M.J.  KAISER) 
MODIFIED  BY  MIKE  JEDWAB  1987 
MODIFIED  BY  KELLYHARRIS/ALAN  MCGUIRE  1984 
MODIFIED  BY  RICK  WENDLAND  AUG  1991 

PROMPTS  ADDED>  ATMOSPHERIC  PRESS. 

RAW  AND  REDUCED  DATA  FILES  USE  DATE_RUN#  CONTEXT  IN  THEIR  NAME. 
REDUCTION  CHANGED  TO  USE  A  MEASURED~STATIC  PRESS  FOR  TURBINE 
PRESSURE  RATIO,  I.E.  INPUT  STAGNATION  PRESS,  OUTPUT  STATIC  PRESS. 


SCANIVALUE  #1  SET  TO  ADVANCE  ONLY! I ! I!t ! ! ! 
CLEAR  SCREEN 
PRINTER  IS  CRT 

DISP  "PLEASE  WAIT  WHILE  RESETTING  SCANIVALVE" 
V-l 
A-l 

GOSUB  Read 

PRINT  "DATA  RUN  FOR  A  TURBO-CHARGER" 
PRINT 

DIM  X(20),Y(6),Q(8),M(23),T(19),Z(20),AS(14],BStl4] 
El-1  ISats  first  record  #-1 

INPUT  "STORING  DATA  ?  (YES-1  NO-0)",G1 
INPUT  "ENTER  MONTH, DAY, YEAR" ,X(3) ,X(5) ,X(7) 

PRINT  USING  "K,DD, ""/"", DD, ""/"", DD" ; "DATE  OF  RUN:  " ,X(3) ,X(5) ,X(7) 
INPUT  "ENTER  RUN  #:",X(9) 
IF  Gl-0  THEN  510 

AS-"RAW_"&VALS(X(7) )&VALS(X<3) )&VALS(X(5) )&"_"&VALS(X(9) ) 
BS-"RED~"&VAL3(X(7))&VALS(X(3))&VAL3<X(5))&"~"&VALS(X(9)) 
CREATE  ASCII  A3&" : , 700, 0, 1" , 10    ICraataa  raw  data  fila 
CREATE  ASCII  BS&" : , 700, 0, 1" , 10    ICraatas  reduced  data  file 
ASSIGN  8Pathl  TO  AS&" : , 700, 0, 1" 
ASSIGN  8Path2  TO  BS&" : , 700, 0, 1" 
PRINT  "RAW  DATA  FILE  NAME: 
PRINT  "REDUCED  DATA  FILE  NAME: 
X(ll)-1 
GOTO  600 
GOSUB  Save 
FOR  1-2  TO  20  STEP  2 
X(I)-0 
NEXT  I 

FOR  1-1  TO  5 
Y(I)-0 
NEXT  I 

PRINT  USING  "/,K.2D,4X,K,2D";"RUN  #" ,X(9) , "DATA  PT  #",X(11) 
GOSUB  1130 

!******  RECORD  PRESSURES  ********************************** 
OUTPUT  722;"FlRlM0Z16STGlSTIT3"!Sets-up  HP3456A  DVM 
V-l  !Scanivalve  #1  designated 


;AS 

';BS 
'Sets  first  datat  point  #=1 

'Reset  X(*)  for  pressures  to  zero 

'Reset  Y(*)  for  temp  &  RPM  to  zero 
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650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
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830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
§50 
960 
970 
980 


S-l 
PRINT 


IHP3495A  Scanner  #1    designated 
USING  "/.SX.K.DDD./^X.K.eX.K'V'SCANIVALVE  #" , V, "PORT" , "IN . 


H20' 


10 


'Read  scanlvalve  port  values 


»C" 

USING 


"DDD";V+9 


#1 
to 


{Clears  Scanner 

! Scanner  #1  set 

! Trigger  DVM 

'Read  Scaniv  port  data  from 


read  Scaniv  port 


DVM 


•Save  Scaniv  port  reading  in  X(*) 
,X(A2) 

{Clear  scanner  1 


•PLEASE  WAIT  WHILE  RESETTING  SCANIVALVE" 


FOR  A-l  TO 

GOSUB  970 

WAIT  1.5 

OUTPUT  701; 

OUTPUT  701 

TRIGGER  722 

ENTER  722 ;V0 

A2-A*2 

X(A2)-V0*100000 

PRINT  USING  "2X,DDD,7X,7D. 

NEXT  A 

OUTPUT  701; "C" 

GOSUB  1520 

PRINT  " 

DISP 

A-l 

V-l 

GOS'*B  Read 

INPUT  "RETAKE  SAME  DATA  POINT?  (1-YES  0-NO)",U1 

IF  Ul-1  THEN  540 

IF  Gl-0  THEN  890 

GOSUB  Save 

INPUT  "COLLECT  ANOTHER  DATA  POINT?  (1-YES  0=NO)",R 

X(ll)-X(ll)+1  !  Increment  data  point  number 

IF  R-l  AND  Gl-0  THEN  540 

El-El+1 

IF  R-l  THEM  540 

GOTO  2650 

I  ******  mo  of  MAIN  PROGRAM  ********************************************* 

! 

I  ******  SUBROUTINE  READ  AND  POSITION  S/V  PORTS  ************************** 

|»»»SCAHIVALVE  #1  HAS  INOP  HOME  FEATURE<««««««««««««««« 
990  Read:    OUTPUT  707  USING  "#.K";V 
1000   P0-SPOLL(707) 

L-BINAND(P0,15) 

Tl-ROTATE(P0,4) 

M1-BINAND(T1,7) 

P-10*M1+L 

CLEAR  707 

IF  P-A  THEN  Finish 

OUTPUT  701 ;"C" 

OUTPUT  701  USING  "DDD";V-1 

OUTPUT  701; "C" 

WAIT  .1 

GOTO  Read 
Finish:   RETURN 

I ******SUBROUTINE  TO  BARO  PRESS  &  TEMPERATURES  ************************** 
OUTPUT  701; "C"  {Clear  scanner  1 

OUTPUT  722;"F1R1M0Z1T3"  !S«ts-up  HP3456A  DVM 

!»»»  BARO  PRESS  IS  MANUAL  INPUT  «««««««<««««<««««««« 

INPUT  "ENTER  BAROMETRIC  PRESSURE  IN  INCHES  HG",X(1) 


1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 


!  INPUT  "ENTER  RPM",Y(6) 

OUTPUT  705;"INAU1SM1" 

ENTER  705; Hz 

Y<6)-Hz*60 

PRINT  USING  "/,K,6D.DD,10X.K.6D 

S-2 

PRINT  USING  "5X,K,DD,/,2X,K,8X 

FOR  C-l  TO  5 

OUTPUT  708 ;"C" 

OUTPUT  708  USING  "DDD";C 

TRIGGER  722 

ENTER  722 ;V 


!Sets-up  HP5335A  Counter 
•Collect  data  from  counter 

/";"BAROMETER(IN.  OF  HG)-" ,X( 1) . "RPM-" .1(6) 
!HP495A  Scanner  #2  designated 
K"; "SCANNER  #" ,S, "CHAN" , "TEMP  (R)" 
{Collecting  temperatures   (chls  1-5) 

{Scanner  #2 
{Trigger  DVM 
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1600 
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1670 
1680 
1690 
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! Storing  temperatures  In  T(*) 
•Collecting  temp  (chls  25-26) 

•Scanner  #2 

(Trigger  DVM 

•Storing  temperatures  in  T(18),T(19) 


! Converts  temp  to  deg  Rankine 


T(C)-V 

NEXT  C 

FOR  C-25  TO  26 

OUTPUT  708 ;"C" 

OUTPUT  708  USING  "DDD";C 

TRIGGER  722 

ENTER  722 ;V 

T(C-7)-V 

NEXT  C 

OUTPUT  708 ;"C" 

CLEAR  722 

T(6)-T(3) 

T(7)-T(5) 

T(3)-T(2)+T(18) 

T(5)-T(4)+T(19) 

FOR  C-l  TO  5 

Y(C)-FNT(T(C)*1000)+460 

PRINT  USING  ••2X,DDD,8X,6D.D";C,Y(C) 

NEXT  C 

RETURN 

,****  SUBROUTINE  FOR  DATA  REDUCTION  ************************* 
TURBINE  STATIC  OUTLET  PRESSURE  WAS  CHANGED  FROM 
ATMOSPBERIC  TO  A  VALVE  MEASURED  IN  THE  TURBINE  OUTLET  FLOW 

VARIABLES  FOR  THIS  SECTION 
M  IS  STORAGE  ARRAY 
Q-MATRIX  OF  PRESS (IN.  OF  HG) 

M(1)-TURBINE  HEAD (DELTA  P  ORIFICE) 

M( 2) -COMPRESSOR  HEAD (DELTA  P  COMPRESSOR) 
Y1-ORIFIC2  EXPANSION  FACTOR (TURBINE) 
Y20RIFICE  EXPANSION  FACTOR  (COMPRESSOR) 
Kl-DISCHARGE  COEF  FOR  FEED  ORIFICE  (TURB) 
K2-DISCHARGE  COEF  FOR  FEED  ORIFICE  (COMP) 
C9-C  SUB  P  FOR  AIR-  0.24 
C8-CONV  FACTOR  BTU->HP 
C7-( GAMMA- 1 /GAMMA)  WITH  GAMMA-1.4 
Zl-ORIFACE  FACTOR  (TURB) 
Z2-ORIFACE  FACTOR  (COMPRESSOR) 
A3-ALPHA  FACTOR  (THERMAL)  IN  FLOW  EQN  (TURB) 
A4-ALPHA  FACTOR  (THERMAL)  IN  FLOW  EQN  (COMP) 
K3-FACTOR  IN  FLOW  EQN  (TURB) 
K4-FACTOR  IN  FLOW  EQN  (COMP) 
Fl-FIRST  ITERATION  OF  FLOW  RATE  (TURBINE) 
F2-FIRST  ITERATION  OF  FLOW  RATE  (COMPRESSOR) 

M(3)-TURB  FLOW  RATE 

M(4)^OMP  FLOW  RATE 

M(5)-TURB  HP 

M(6)-COMP  HP 

M(7)-TURB  PRESS  RATIO  (IN/OUT) 

M(8)-COMP  PRESS  RATIO  (IN/OUT) 

M(9)-TURB  EFFICIENCY   (TOTAL -STATIC) 

M( 10) -COMPRESSOR  EFFICIENCY  ( TOTAL - TOTAL )  MJ 
TO-REF  TEMP  (518.7  DEG  R) 

M(11)-SQRT  OF  THETA  (TURB)   (T(IN)/T(REF) )"0 . 5 

M(12)-SQRT  OF  THETA  (COMP) 
DO-REF  PRESS  (29.92  IN.  HG) 

M(13)-REF  PRESS  RATIO  (TURB  IN/REF) 

M(14)-REP  PRESS  RATIO  (COMP  IN/REF) 

M(15)-REF  TURB  FLOW  RATE 

M(16)-REF  COMP  FLOW  RATE 

M(17)-REF  TURB  RPM 

M(18)-REF  COMP  RPM 

M(19)-REF  TURB  HP 

M(20)-REF  COMP  HP 

M(21)-DELTA  TEMP(TURB) 
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I      M(22)-DELTA  TEMP(COMP) 

!      M(23)=HEAD  COEFFICIENT 

MAT  O-  (0) 

FOR  1-6  TO  20  STEP  2 

Q(I/2-2)-((X(I)-X(2))*.07355)+X(l) 

NEXT  I 

M(l)-X(6)-X(8) 

M(2)-X(14)-X(16) 

Y1-1-.026*M(1)/Q(1) 

Y2-1-.02581*M(2)/Q(5) 

Kl-1.4405 

K2-. 63094 

C9-.24 

C8-1. 414836364 

C7-. 2857142857 

Zl-1.9+C9*(((YU)-460)/100)-l) 

Z2-1.9+C9*(((Y(4)-460)/100)-1) 

A3-l+.002044*((Y(l)-528)/100) 

A4-l+.002044*((Y(4)-528)/100) 

K3-. 00327673 

K4-. 0015472 

F1-K1*A3*Y1*SQRT(ABS(Q(1)*M(1)/Y(1))) 

F2-K2*A4*Y2*SQRT(ABS(Q(5)*M(2)/Y(4))) 

M(3)-F1/2*(1+SQRT(ABS(1+4*K3*Z1/F1))) 

M(4)-F2/2*(1+SQRT(ABS(1+4*K4*Z2/F2))) 

M(21)-Y(2)-Y(3) 

M(22)-Y(5)-Y(4) 

M(5)-M(3)*C9*M(21)*C8 

M(6)-M(4)*C9*M(22)*C8 

M(7)-Q<3)/Q(4) 

M<8)-<3(8)/Q(7) 

M(9)-(M(21)/Y(2))*(1/(1-(Q(4)/Q(3))"C7))*100 

M(10)-Y(4)/M(22)*((M(8)"C7)-1)«100 

T0-518.7 

M(11)-SQRT(Y(2)/T0) 

M(12)-SQRT(Y(4)/T0) 

DO-29.92 

M(13)-Q(3)/D0 

M(14)-Q(7)/D0 

M(15)-M(3)*M(11)/M(13) 

M(16)-M(4)*M(12)/M(14) 

M(17)-Y(6)/M(ll) 

M(18)-Y(6)/M(12) 

M(19)-M(5)/(M(13)*M(11)) 

M(20)-M(6)/(M(14)*M(12)) 

M(23)-12872868*Y(2)/Y(6)"2*(1-(Q(4)/Q(3))*C7) 

PRINT 

PRINT 

PRINT  "REDUCED  DATA:" 

PRINT 

PRINT  "HEAD  COEFFICIENT-" ;M( 23) 

PRINT  USING  "/,8X,K";"HP       FLOW     DELTA     PRESS      EFF       FLOW     RPM     HP" 

PRINT  USING  "17X,K";"RATE     TEMP      RATIO 

(PRINT  "KKXX_XXXXX.X_XXXXXX.XXX_XXXXXX.X_XXXXXX.XXX_XXXXXX. 

PRINT  USING  "/,K,X.5D.D,X,6D.3D,X,6D.D,X,6D.3D,X,6D.D,X,6D.3D,X,6D,X.5D.D";"TURB",M(5).M(3) 

PRINT  USING  "/,K,X,5D.D,X,6D.3D,X,6D.D,X,6D.3D,X,6D.D,X,6D.3D,X,6D,X,5D.D";"COMP",M(6),M(4) 


EFF       FLOW     RPM 
(REF)     (REF)   (REF)" 
X  XXXXXX.XXX  XXXXXX  XXXXX.X" 


RETURN 

!****  SUBROUTINE  TO  SAVE  DATA  POINT  ON  HARD  DRIVE 
S«v«:  OUTPUT  8Pathl;A3 
OUTPUT  8Pathl;El 
OUTPUT  §Pathl;X(*).Y(*).T(*) 
OUTPUT  ePath2;BS 
OUTPUT  9Path2;El 
OUTPUT  SPath2;M(*) 


700  0  1  ************* 
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2620  RETURN 

2630  REM****  END  OF  SUBROUTINES  ********************************************* 

2640  ! 

2650  LOAD  "TURBO_LAB",10 

2660  END 

2670  ! 

2680  REM****  FUNCTION  FOR  TEMPERATURE  COMPUTATION  *************************** 

2690  DEF  FNT(V) 

2700  Sl-32. 144+35. 77*V-.4518*V~2 

2710  S2-33. 252+34. 86*V- . 1855*V~2 

2720  IF  Sl<100  THEN  2740 

2730  S1-S2 

2740  RETURN  SI 

2750  FNEND 

2760  REM****  END  OF  USER  DEFINED  FUNCTIONS  ********************************** 


Figure  D3  (cont)  TPL  Program:  TURBOl 
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10  !   PROGRAM:   TURB02   (OLD  TURB03) 

20  !   MODIFIED  BY:   R.  SHREEVE  10/8/86 

30  !                R.  WENDLAND,  LCDR,  USN,  9/17/91 

40  CLEAR  SCREEN 

50  DIM  X(20),Y(6),T(19),IS[12],OS[12],U$[14] 

60  INTEGER  El 

70  FRINTER  IS  CRT 

80  INPUT  "ENTER  RAW  DATA  FILE  NAME:",U3 

90  INPUT  "ENTER  DATA  POINT  RECORD  NUMBERS  (LOW,  HIGH):",A,B 

100  INPUT  "DO  YOU  WANT  TO  DISPLAY  RESULTS  TO  SCREEN  OR  PRINTER  (SCREEN-0  PRINTER-1)?" ,R 

110  IF  R-0  THEN  130 

120  PRINTER  IS  711 

130  ASSIGN  9Path  TO  US&" :, 700,0, 1" 

140  ON  END  gPath  GOTO  Continual 

ISO  GOSUB  Read 

160  1$-"   INLET" 

170  OS-"   OUTLET" 

180  PRINT  " " 

190  PRINT  TAB(23); "CUMMINS  TURBOCHARGER  MEASURED  DATA" 

200  PRINT  " " 

210  PRINT  USING  "16X,K,DD, 19X,K,DDeK,DD,K,DD" ; "RUN  #" ,X(9) , "DATE:  " ,X(3) , "/" ,X(5) , "/" ,X(7) 

220  PRINT  " - " 

230  PRINT  USING  "/,/ .27X.K" ; "PRESSURES  (IN.  H20  GAUGE)" 

240  PRINT  USING  "20X.K, 5X,K" ; " |    ORIFICE     |    TURBINE     |    NOZZLE" ," |   COMPRESSOR" 

250  PRINT  "POINT   TARE  CALIB.  | " ;TAB(36) ; " | " ;TAB(51) ; " | " ;TAB(66) ; " | " 

260  PRINT  USING  "K, 14X,K,K.K,K,K.K,K,K" ; "  NO.  ", IS, 0$, 1$, OS, IS, OS, IS, OS 

270  PRINT  USING  "10D, 60, 80, 70, 80, 70,80. 70, 80, 8D" ; 1,2,3, 4, 5.6, 7, 8, 9, 10 

280   PRINT  "- — - — — " 

290  Printl:   IF  EKA  THEN  Loopl 

300  PRINT  USING  "30.60.0.50.0,60.0,50.0.60.0, 50.0,60.0, 50. D.6D.D, 5D.D";X( 11) ,X(2) ,X(4 ) ,X(6) ,X(8) 

310  IF  El-B  THEN  Continual 

320  Loopl: GOSUB  Raad 

330  GOTO  Peintl 

340  Continual:   PRINT  " — 

350  ASSIGN  SPath  TO  U$&" : , 700, 0, 1" 

360  ON  END  SPath  GOTO  Continue2 

370  El-0 

380  GOSUB  Raad 

390  1$-"      INLET" 

400  0$-"      OUTLET" 

410  PRINT  USING  "/,/, 47X.K" ; "TEMPERATURES  (DEG  R)" 

420  PRINT  USING  "28X,K" ; " I" 

430  PRINT  USING  "K,5X,K,4X,K, 10X.K, 6X,K, 7X.K, 4X.K" ; "POINT" , "RPM" , "ATM.  PRESS  | "," | ", "TURBINE". " 

440  PRINT  USING  "K, 15X,K,K,K.K,K" ; "  NO. "; "(IN.HG)     ORIFICE" , IS, OS, IS, 0$ 

450  PRINT  USING  "23X, 110, 11D, 10D, 11D, 100" ; 1,2,3, 4,5 

460  PRINT  "  — — —  — — • 

470  Print2:   IF  E1<A  THEN  Loop2 

480  PRINT  USING  "3D, 11D, 8D.DD, 9D.D, 9D.D, 8D.D, 9D.D, 8D .D" ;X(11) , Y(6) ,X(1) , Y( 1) , Y(2) , Y(3) , Y(4 ) , Y(5) 

490  IF  El-B  THEN  Continue2 

500  Loop2: GOSUB  Read 

510  GOTO  Print2 

520  Continue2:   PRINT  " 

530  PRINT  TAB(21);"NOTE:  CHANNEL  AND  PORT  NUMBERS  INDICATED" 

540    PRINT  "- - " 

550  GOTO  Hold 

560  Read:   ENTER  @Path;AS 

570  ENTER  8Path;El 

580  ENTER  8Path;X(*) 

590  ENTER  9Path;Y(*) 

600  ENTER  9Path;T(*) 

610  RETURN 

620  Hold:DISP  "F2  TO  CONTINUE" 

630  PAUSE 

640  PRINTER  IS  CRT 

650  LOAD  "TURBO_LAB",10 

660  END 

Figure   D4      TPL   Program:    TURB02 
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10  !   PROGRAM:   TURB03   (OLD  TURBO*) 

20  !   MODIFIED  BY:   R.  SHREEVE  10/8/86 

30  !  R.  WENDLAND,  LCDR,  USN,  9/20/91 

40  CLEAR  SCREEN 

50  DIM  X(20),Y(6),T(L9),M(23),UStl4],V$[14) 

60  INTEGER  E1.E2 

70  PRINTER  IS  CRT 

80  INPUT  "ENTER  RAW  DATA  FILE  NAME:", US 

90  INPUT  "ENTER  REDUCED  DATA  FILE  NAME:",VS 

100  INPUT  "ENTER  DATA  POINT  RECORD  NUMBERS  (LOW,  HIGH):",A,B 

110  INPUT  "DO  YOU  WANT  TO  DISPLAY  RESULTS  TO  SCREEN  OR  PRINTER  (SCREEN-0  PRINTER-1)?" ,R 

120  IF  R-0  THEN  140 

130  PRINTER  IS  711 

140  ASSIGN  8Pathl  TO  US&" :. 700,0, 1" 

150  ASSIGN  8Path2  TO  VS&" :, 700,0, 1" 

160  ON  END  8Pathl  GOTO  Continual 

170  ON  END  8Path2  GOTO  Continual 

180  GOSUB  Read 

190  PRINT  " - - " 

200  PRINT  TAB (23); "CUMMINS  TURBOCHARGER  CALCULATED  DATA" 

210  PRINT  " - - - " 

220  PRINT  USING  "16X,K,DD, 19X,K,DD,K,DD,K,DD"; "RUN  #" ,X(9) , "DATE:  " ,X(3) , "/" ,X(5) , "/" ,X(7) 

230  PRINT  " - —  " 

240  PRINT  USING  "/,/, 32X.K" ; "TURBINE  DATA" 

250  PRINT  USING  "9X,K" ; "POINT    PRESS    REF      REF      HP      REF    HEAD      EFF" 

260  PRINT  USING  "10X,K";"NO.     RATIO    RPM      FLOW  HP    COEFF     (Z)" 

270  PRINT  USING  "16X.K.9X.K" ; "(P6/P5)", "(LBM/SEC)" 

280  PRINT  USING  "10X.K";"        M(7)    M(17)     M(15)    M(5)     M(19)   M(23)    M(9)" 

290  PRINT  " " 

300  Prlntl:   IP  E1<A  THEN  Loopl 

310  PRINT  USING  "9X, 3D,6D.2D, 9D.5D. 3D,6D.2D,5D.2D, 3D.3D.5D.D" ;X( 11) ,M(7) ,M(17) ,M( 15) ,M(5) ,M( 19) , 

320  IF  El-B  THEN  Continual 

330  Loopl: GOSUB  Raad 

340  GOTO  Printl 

350  Continual:   PRINT  " 

360  ASSIGN  SPathl  TO  US&" : , 700,  0  , 1" 

370  ASSIGN  8Path2  TO  VS&" :, 700,0, 1" 

380  ON  END  8Pathl  GOTO  Continua2 

390  ON  END  8Path2  GOTO  Continua2 

400  El-0 

410  GOSUB  Raad 

420  PRINT  USING  "/,/ .30X.K" ; "COMPRESSOR  DATA" 

430  PRINT  USING  "9X.K" ; "POINT    PRESS    RPM     REF     REF     HP     REF     EFF" 

440  PRINT  USING  "10X,K";"NO.     RATIO  RPM     FLOW  HP      (Z)" 

450  PRINT  USING  "15X.K, 16X.K" ; "(P10/P9)" , "(LBM/SEC)" 

460  PRINT  USING  "10X,K";"        M(8)  M(18)    M(16)    M(6)    M(20)   MUO)" 

470  PRINT  " " 

480  Print2:   IF  E1<A  THEN  Loop2 

490  PRINT  USING  "9X, 3D, 6D. 2D, 9D, 8D, 4D. 3D, 5D. 2D, 4D . 2D, 4D.D" ;X( 11) ,M(8) . Y(6) ,M( 18) ,M(16) ,M(6) ,M(20) 

500  IF  El-B  THEN  Continue2 

510  Loop2: GOSUB  Read 

520  GOTO  Print2 

530  Continue2:   PRINT  " — 

540  GOTO  Hold 

550  Read:   ENTER  8Pathl;AS 

560  ENTER  8Pathl;El 

570  ENTER  8Pathl;X(*) 

580  ENTER  8Pathl;Y(*) 

590  ENTER  8Pathl;T(*) 

600  ENTER  8Path2;BS 

610  ENTER  8Path2;E2 

620  ENTER  8Path2;M(*) 

630  RETURN 

640  Hold:DISP  "F2  TO  CONTINUE" 

650  PAUSE 
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660    PRINTER  IS  CRT 

670    LOAD  "TURBO_LAB" , 10 

680    END 


Figure  D5  (cont)  TPL  Program:  TURB03 
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10  IProgram:   TURB04  Plots  data  from  designated  ASCII  files  to  the  CRT  or  Printer 

20  IDeveloped:   by  R.  Wondland,  LCDR,  USN,   22  Sept  1991 

30  ! 

40  DIM  TitleS [50] ,X_labelS[50] , Y_label$[ 50 J ,Red_fileS[ 14] ,M(23) .DataK 1:20, 23 ) ,Data2(l:20 ,23) 

50  CLEAR  SCREEN 

60  KEY  LABELS  OFF 

70  PRINTER  IS  CRT 

30  ! 

90     ! Load  working  matrix  Data:  

100  Loadjnatrix:   I 

110  INPUT  "Number  of  plots  per  graph  (1  to  3) : " , Num_plots 

120  FOR  K-l  TO  Num_plots 

130  INPUT  "Enter  reduced  data  file  name: " ,Red_file$ 

140  PRINT  "Data  file  #";K;":   ";Red_fileS 

150  ASSIGN  §Path  TO  Red_fileS&" : , 700, 0, 1" 

160  ON  END  §Path  GOTO  410 

170  1-1 

180  Read: ENTER  @Path;AS 

190  ENTER  9Path;El 

200  ENTER  8Path;M(*) 

210  SELECT  K 

220  CASE  1 

230  FOR  J-0  TO  23 

240  Datal(I,J)=M(J) 

250  NEXT  J 

260  Dl-Dl+1 

270  CASE  2 

280  FOR  J-0  TO  23 

290  Data2a,J)-M(J) 

300  NEXT  J 

310  D2-D2+1 

320  CASE  3 

330  FOR  J-0  TO  23 

340  Data3(I,J)-M(J) 

350  NEXT  J 

360  D3-D3+1 

370  END  SELECT 

380  I-I+l 

390  GOTO  Read 

400  1-0 

410  NEXT  K 

420  ! 

430    I Define  graph  parameters:  

440  Graph_param«ter:   t 

450  INPUT  "Enter  graph  title: ".TitleS 

460  PRINT  "Graph  title:   "; TitleS 

470  INPUT  "Enter  X-axia  label: " ,X_label3 

480  PRINT  "X-axia  label:   ";X_labelS 

490  INPUT  "Enter  Y-axis  label: " ,Y_labelS 

500  PRINT  "Y-axis  label:   ";Y_labelS 

510  INPUT  "Enter  X-axis  and  Yraxis  M-values(  M(x),M(y)  ):",X,Y 

520  FOR  K-l  TO  Num_plots 

530  SELECT  K 

540  CASE  1 

550  PRINT 

560  PRINT  "Data  file  #";K;":" 

570  PRINT  X_labelS;TAB(25);Y_labelS 

580  FOR  I-l~TO  01 

590  PRINT  Datal(I,X),Datal(I,Y) 

600  NEXT  I 

610  CASE  2 

620  PRINT 

630  PRINT  "Data  file  #";K;":" 

640  PRINT  X_labelS;TAB(25);Y_labelS 

650  FOR  1-1  TO  D2 


Figure   D6      TPL  Program:    TURB04 

165 


660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 


PRINT  Data2(I.X),Data2(I,Y) 
NEXT  I 
CASE  3 
PRINT 

PRINT  "Data  file  #";K;":" 
PRINT  X_labelS;TAB(25);Y_label$ 
FOR  1-1  TO  D3 

PRINT  Data3(I,X),Data3(I,Y) 
NEXT  I 
END  SELECT 
NEXT  K 

INPUT  "Enter  Xmin,  Xmax,  Yinin,  Ymax: " ,Xo,Xf , Yo, Yf 
| 

i Graph  data 


! 


Graph_data:   ! 
CLEAR  SCREEN 
GINIT 
Xso"Xo 
Xsf-Xf 
Yso-Yo 
Ysf-Yf 

Xa_range-X3f-Xao 
Ys_range»Y3f-Yso 
Xscale-1 
Yscale-1 
IF  Xs_range<1000  THEN 

Xs_range»Xs_range*10 

Xscale-Xscaie*10 

GOTO  910 
END  IF 
IF  Ys_range<1000  THEN 

Ys  range»Ys  range*10 

Yscale-Yscale*10 

GOTO  960 
END  IF 

Xso-Xo*Xscale 
Xsf-Xf*Xscale 
Yso-Yo*Yacale 
Ysf-Yf*Yscale 
Xs_range«Xsf-Xso 
Ys_r ange-Ys f - Yao 
LORG  6 

MOVE  100*RATIO/2,100 
LABEL  Titled 
CSIZZ  3.5 
MOVE  100*RATIO/2,0 
LORG  4 

LABEL  X  labelS 
DEG 

LDIR  90 
LORG  6 
MOVE  0,50 
LABEL  Y_labelS 
LDIR  0 
LORG  2 

VIEWPORT  10,90*RATIO,10,90 
FRAME 

WINDOW  Xao.Xaf ,Yso,Ysf 
AXES  Xa_range/ 10 , Ys_range/ 10 .Xso . Yso 
AXES  Xs  range/10, Ys  range/10 ,Xsf, Ysf 


! Initialize  graph  routine 

!  Initialize  all  scaling  variables 


!  Scale  up  graph  variables  for  mininum  of 
!  of  1000  units  of  resolution  across  x-axis 


Scale  up  graph  variables  for  mininum  of 
of  1000  units  of  resolution  across  y-axis 


Finalize  all  scaling  variables 


(Length  of  X-axis 

(Length  of  Y-axis 

(Character  ref  pt  top  center 

(Move  cursor  to  screen  loc  for  labels 

I  Plot  title 

(Sizes  labeling 

(Move  cursor  to  bottom  center  screen 

(Character  ref  pt: bottom  center 

(X-axis  label 

(Desig  degrees  for  LDIR 

(Sets  Y-axis  label  on  end 


(Y-axis  label 

(Reset  label  to  horizontal  orientation. 

(Chr  ref  pt:left  center 

(Sets  graph  screen  size 

(Box  around  VIEWPORT 

(Set  axis  lengths  in  VIEWPORT 

(Axes  intersect  at  lower  left 
(Axes  intersect  at  upper  right 


CLIP  OFF 
CSIZE  3.0,  .4 
LORG  6 

FOR  I-Xso  TO  X3f  STEP  Xs_range/10 
MOVE  I,Yso-.01*Ys  range 


(So  labels  can  print  outside  VIEWPORT 
(Axes  label  size 
(Number  X-axis 
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INumber  Y-axis 


LABEL  USING  '•(f.K"  ;  I/Xscale 
NEXT  I 
LORG  8 

FOR  I-Yso  TO  Ysf  STEP  Ys_range/10 
MOVE  Xao-.01*Xs_range,I 
LABEL  USING  "#,K" ; I/Yscale 
NEXT  I 

FOR  K-l  TO  Num_plota 
SELECT  K 
CASE  1 
FOR  1-1  TO  Dl 
PLOT  Datal(I,X)*X3cale,Datal(I.Y)*Yscala,-2 
PDIR  45 

POLYGON  .01*Xa_range,4 
NEXT  I 
CASE  2 
FOR  1-1  TO  D2 
PLOT  Data2(I,X)*Xscale,Data2a,Y)*Yscale,-2 
PDIR  0 

POLYGON  .01*Xs_range,4 
NEXT  I 
CASE  3 
FOR  1-1  TO  D3 
PLOT  Data3(I,X)*Xscale,Data3(I,Y)*Yscale,-2 
PDIR  90 

POLYGON  .01*Xa_range,3 
NEXT  I 
END  SELECT 
NEXT  K 

IF  Plot-0  THEN  Hardcopy 
DUMP  GRAPHICS  #711  " 
GOTO  Anoth«r_plot 
! 


PLota  Datal  as  squares 


!  Plots  Data2  as  diamonds 


Plots  Data3  as  triangles 


Initialize  all  scaling  variabLes 


I Hard  copy  plots  of  graphs  

Hard_copy:  ! 
INPUT  "Plot  graph:  (No-0  Printer-1  Plotter-2)" , Plot 
IF  Plot-0  THEN  Another_plot 
IF  Plot-1  THEN  Graph_data 

I Plottar  routina 

Plotter:  ( 
PRINTER  IS  712 
Xso-Xo 
Xsf-Xf 
Yso-Yo 
Ysf-Yf 

Xa_range— Xsf-Xso 
Ya_range— Ysf-Yao 
Xacale"l 
Yscale-1 
IF  Xa_range<1000  THEN 

Xa_range-Xa_range*10 

Xscale-Xacale*10 

GOTO  1800 
END  IF 
IF  Ys_range<1000  THEN 

Ya_range-Ys_range*10 

Yscalo-Yscala*10 

GOTO  1850 
END  IF 

Xaf-INT(Xf*Xacale) 
IF  Xaf>16383  THEN 

Xsf-Xsf/10 

Xscale-Xscale/ 10 

GOTO  1910 
END  IF 


Scale  up  graph  variables  for  mlnlnum  of 
of  1000  units  of  resolution  across  x-axls 


Scale  up  graph  variables  for  mlninum  of 
of  1000  units  of  resolution  across  y-axis 


!  Readjuat  graph  variables  to  ensure  x-axis 
!  Xsf  does  not  exceed  16383  units 
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Readjust  graph  variables  to  ensure  y-axis 
Xsf  does  not  exceed  16383  units 


Finalize  all  scaling  variables 


;Yaf;' 


t  Sat  paper  size 
t  Sat  X  &  Y  axisas  lengths 

!  Print  X-axis 


Ysf=INT(Yf*Yscale) 
IF  Ysf>16383  THEN 

Ysf-Ysf/10 

Yscale-Yscale/10 

GOTO  1970 
END  IF 

Xao-INT(Xo*Xscale) 
Xsf-INT(Xf*Xscale) 
Yso-INT(Yo*Yscale) 
Ysf-INT(Yf*Yscala) 
PRINT  "IN;IP1000, 1000, 9500, 7000;' 
PRINT  "SC" ;Xao ; " , " ;Xaf ; " , " ; Yso ; " , 
PRINT  "PA";Xao;",";Yso;";SPl;PD;" 
FOR  Xp-Xso  TO  Xsf  STEP  (Xs£-Xso)/10 

PRINT  "PA";Xp;V;Yso;";XT;PU;" 

PRINT  •,CP-2.4,-1.3;LB";Xp/Xscale;CHR$(3) 

PRINT  "PA";Xp;",";Yso;,,;PD;" 
NEXT  Xp 

PRINT  "PU; PA" ;Xso+INT( . 4* (Xsf -Xso ) ) ; 
PRINT  "PU ; PA" ; Xso ; " , " ; Ysf ; " ; PD ; " 
FOR  Xp-Xso  TO  Xsf  STEP  (Xsf-Xso)/10 

PRINT  "PA" ;Xp; " , " ; Ysf ; " ;XT; " 
NEXT  Xp 

PRINT  "PU ; PA" ; Xso ; " , " ; Yso ; " ; PD ; " 
FOR  Yp-Yso  TO  Ysf  STEP  (Ysf-Yso)/10 

PRINT  "PA" ;Xso; " , " ; Yp; " ; YT ; PU ; " 

PRINT  "CP-6.4,-.3;LB";Yp/Yscale;CHRS(3) 

PRINT  "PA";Xso;",";Yp;";PD;" 
NEXT  Yp 

PRINT  "PU;PA";Xao-INT(.09*(X8f-Xao));",";Y8O+INT(.375*(Y8f-Yao));";DI0,l;LB";Y_labal$;CHRS(3) 
PRINT  •,PA";Xa*;",";Yso;";PD" 
FOR  Yp-Yso  TO  Yaf  STEP  (Yaf-Yao)/10 

PRINT  ,'PA••;Xsf;•\";Yp;";YT;•' 
NEXT  Yp 

PRINT  "PU;PA" ;Xso+INT< . 4*(Xaf-Xao) ) ; " , " ; INT( . 078*(Yaf-Yao) )+Ya£ ; ' 

t  Plot  data  points 


" ; Yso-INT( . 078* (Ysf -Yso ) ) ; " ;LB" ;X  labelS ;CHRS( 3 ) 


!  Print  Y-axis 


'  ;DI1,0; LB"; TitleS ;CHR$(3) 


* ; INT(Datal(I , Y)*Yscale) ; " ; " 

-99;"  t  Plota  squares  for  graph  #1 


TO  D2 

•PA";INT(Data2(I,X)*Xscale); 
*UC0, -4, 99, -3, 4, 3, 4, 3, -4, -3, -4, -99;"!  Plots  diamonds  for  graph  #2 


;INT(Data2(I.Y)*Yscale); 


FOR  K-l  TO  Numjplota 
SELECT  K 
CASE  1 
FOR  1-1  TO  Dl 
PRINT  "PA";INT(Datal(I,X)*Xacale) 
PRINT  "UC-3 , -4 , 99 , 0 , 8 , 6 , 0 , 0 , -8 ,  -6 
NEXT  I 
CASE  2 
FOR  1-1 
PRINT 
PRINT 
NEXT  I 
CASE  3 
FOR  1-1  TO  D3 
PRINT  "PA" ; INT(Data3 ( I ,X)*Xscale) ; " , " ; INT(Data3(I , Y)*Yscale) ; " ; " 
PRINT  "UC-3, -4, 99, 3, 8, 3, -8, -6, 0,-99;"     I  Plots  trlanglaa  for  graph  #3 
NEXT  I 
END  SELECT 
NEXT  K 

PRINT  "PU;PA";Xsf ;",";Ysf ;";M 
PRINTER  IS  CRT 

! Additionl  plots/End  of  routines  

Another_plot:  ! 
INPUT  "Plot  another  graph?  (Yes-1  No-0)" .Replot 
Plot-0 

CLEAR  SCREEN 

IF  Raplot-1  THEN  Graph_parameter 
CLEAR  SCREEN 
KEY  LABELS  ON 
LOAD  "TURBO* LAB" , 10 
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10  'Program:  SCAN_TEMP 

20  JDeacription:   Reads  thermo-couple  emf  from  channels  0-5,  converts  to 

30  !              degrees  F,  and  prints  to  CRT. 

A0  !Devlcea:   HP3495A(708) ,  HP3A56A(722) 

50  ! 

60  CLEAR  SCREEN 

70  DUMP  DEVICE  IS  711 

80  DIM  Y(5,1:2),T(5) 

90  INTEGER  Run 

100  DIM  ChannelS(5)[20] 

110  Channels (0)-"Atmoaphere" 

120  ChannelS(l)-"Supply  Orifice" 

130  Channels ( 2 )-"Turbine  Inlet" 

140  Channels ( 3 )-"Turbine  Outlet" 

150  Channels ( A )-"Compressor  Inlet" 

160  ChannelS(5)~"Compressor  Outlet" 

170  ! 

180  PRINT  "Turbocharger  Lab  Temperature  Readings." 

190  Scan:   ! 

200  Run-Run+1 

210  PRINT 

220  PRINT  "Run  number: ";Run 

230  PRINT  USING  "K, 11X,K, 3X.K" ; "Location" , "Channel  #" , "    Temperature  (F)" 

2A0  PRINT 

250  OUTPUT  722; "T3" 

260  FOR  C-0  TO  5                    !Readlng  temperature  channels  0-5 

270  OUTPUT  708  USING  "DDD";C 

280  TRIGGER  722 

290  ENTER  722;T(C) 

300  Y(C.1)-C 

310  Y(C,2)-FNT(T(C)*1000)         !U«er  defined  function  applied 

320  IF  Y(C,2)<ABS(.l)  THEN 

330  Y(C,2)-0 

340  END  IP 

350  PRINT  USING  "20A. 2X.DD, 11X, 5D.D" ;ChannelS(C) , Y(C, 1) . Y(C. 2) 

360  NEXT  C 

370  CLEAR  722 

380  INPUT  "Enter:  1-Rescan   0-Ouit" .Reacan 

390  IF  Reacan-1  THEN  Scan 

A00  LOAD  "TURBO_MENU",10 

410  END !  ———————— — — — — — — — - 

A20  lUaer  defined  function  to  convert  voltage  readinga  from  temperature  probes 

A30  ! to  temperature  valuea  in  degreea  F. 

440  DEF  FNT(V) 

450  S1-32.14A+35.77*V-.4518*V~2 

460  S2-33. 252+34. 86*V-.1855*V~2 

470  IF  Sl<100  THEN  A90 

A80  S1-S2 

A90  RETURN  SI 

500  FNEND 
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! Program:  TURBO_MENU 

IDescr iption :   Program  provides  Function  Key  menu  for  program  selection. 
CLEAR  SCREEN 


GOTO  Turbol 
GOTO  Turbo2 
GOTO  Turbo3 
GOTO  TurboA 
TEMP  "  GOTO  Temp 


ON  KEY  1  LABEL  "TURBO  1" 

ON  KEY  2  LABEL  "TURB02" 

ON  KEY  3  LABEL  " TURBO 3 " 

ON  KEY  A  LABEL  "TURBOA" 

ON  KEY  5  LABEL  "SCAN 

ON  KEY  6  LABEL  "  "  GOTO  Hold 

ON  KEY  7  LABEL  "MAIN    MENU"  GOTO  Main 

ON  KEY  8  LABEL  "EXIT    MENU"  GOTO  Exit 

t 

PRINT  "Turbocharger  Data  Acquisition  Lab" 

PRINT 

Select  Function 


PRINT  "Item: 

PRINT 

PRINT  "   TURBOl: 

PRINT  " 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

! 
310  Hold:     t 
320   GOTO  Bold 
330  Turbol:   I 


Key" 


Collect,  reduce 
store  RAW  Data" 


and 


TURB02:   Tabulate  RAW  Data 

TURB03:   Tabulate  REDUCED  Data 

TURBOA:   Plot  REDUCED  Data 

SCAN_TEMP:  Scan  temper atura  proba 

Main  Menu 
Exit  Menu 


Fl" 


F2" 

F3" 

FA" 

F5" 

F7" 
F8" 


340 
350 
360 
370 
380 
390 
A00 
A10 
A20 


LOAD 
Turbo2 : 

LOAD 
Turbo3 : 

LOAD 
TurboA : 

LOAD 
Temp: 

LOAD 


'TURBOl", 10 


•TURB02" , 10 


•TURBO3",10 


"TURBOA", 10 
! 


•SCANJTEMP" , 10 
A30  Discrepancies:! 
AA0    LOAD  "DISCREP_DCC" , 10 
A 50  Main:     ! 

A60    MASS  STORAGE  IS  "/WORKSTATIONS" 
A 70    LOAD  "AUTOST",10 
A 80  Exit: CLEAR  SCREEN 
A 90    END 
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10  !Title:   A_4431T 

20  JAuthor:   R.P.  Shreavo  (Rev.  12/3/89) 

30  JUpdated:   R.A.  Wendland  (12/12/91) 

40  ! Program:   Performance  calculations  for  turbine  for  varying 

50  f  Alphal . 

60  ! 

70  CLEAR  SCREEN 

80  DUMP  DEVICE  IS  711 

90  KEY  LABELS  OFF 

100  DIM  A(7,15),B(7,15),C(7,15)1R(15),S(15)1Alphal(15) 

110  DEG  !  All  angles  in  degrees 

120  INPUT  "Print  results  to  CRT  or  Printer?  (CRT-1,  Printer-0):  ",Crt 

130  IF  Crt-1  THEN  150 

140  PRINTER  IS  711 

150  ! Input  data 

160  R9-.08 

170  P9-1 

180  Q9-517.8 

190  PO-2 

200  P2-1 

210  TO-560 

220  UO-800 

230  Hl-14 

240  !  Al-75  !  Program  modified  for  Alphal  iteration 

250  Gl-1.4 

260  G0-32.174 

270  K9-.98 

280  NO-35000 

290  INPUT  "Enter  R*:  ",R0 

300  INPUT  "Enter  Alphal  (deg):  min,  max,  step  size  — >  ",L1,L2,L3 

310  !- ■  Calculate  needed  quantities 

320  V0-109.62*SQRT(T0) 

330  X3-U0/V0 

340  P4-P2/P0 

350  R8-R9*(P0/P9)/(T0/Q9) 

360  I Calculate  performance • 

370  1-1 

380  L4-0 

390  FOR  Al-Ll  TO  L2  STEP  L3 

400  GOSUB  Non_dimension 

410  T8-T9*T0 

420  H0-(V0*V0/(2*G0))*T9/550 

430  P1-P3*P0 

440  T1-S1*T0 

450  T2-S2*T0 

460  V1-X1*V0 

470  V2-X2*V0 

480  W1-X5*V0 

490  W2-X6*V0 

500  W0-H1/H0 

510  X9-X1*C0S(A1) 

520  A9-(W0*144/ (R8*V0 ) ) / (X9* ( 1-X9"2 ) " ( 1/  ( 1-G1 ) )*K9) 

530  R7-(360*U0)/(PI*N0) 

540  H9-A9/(2*PI*R7) 

550  PRINT  ••R*-";R0;,,RM-";R7;"H-":H9;,,W0-";W0 

560  ! Store  data  in  array  

570  R(I)-R0 

580  S(I)-R1 

590  Alphal ( I )-Al 

600  A(1.I)-N1 

610  A(2,I)-N2 

620  A(3,I)-H0 

630  A(4,I)-T8 

640  A(5,I)=P1 

650  A(6,I)=T1 


Figure  D9   TPL  Program:  A  443 IT 


171 


';"PTO-",PO," 
',U0,"  FT/SEC 


P2-'\P2,"  ATO. 


TT0-",T0,"  DEG.  R" 


ETA  T-T" 


HP /LB 


DELTW 


PI 


660  A(7,I)-T2 

670  B(1,I)-V1 

680  B(2,I)-W1 

690  B(3,I)-V2 

700  B(4,I)-W2 

710  B(5,I)-B1 

720  B(6,D— A2 

730  B(7,I)— B2 

740  C(1.I)-Z1 

750  C(2,I)-Z2 

760  C(3,I)-M3 

770  C(4,I)-M4 

780  C(5,I)«M5 

790  C(6,I)-M6 

800  C(7,I)-0 

810  I-I+l 

820  L4-L4+1 

830  NEXT  Al 

840  ! Print  data 

850  PRINT  USING  "/ ,K. 5D.2D.K, 5D.2D.K, 6D,K 

860  PRINT  USING  "/ ,K, 6D,K, /"; "WHEEL  VEL.-' 

870  FOR  1-1  TO  L4 

880  PRINT  USING  "K, 5D" ; "ALPHA1-" ,Alphal(I) 

890  NEXT  I 

900  PRINT  USING  "/ ,K,K.K.K,K,K,K.K.K" ; "  ETA  T-S 

910  FOR  1-1  TO  L4 

920  PRINT  USING  "4D. 3D, 4D.3D, 3D. 4D.3D. 4D, 3D. 4D, 5D.2D, 5D.2D, 5D.2D, 3D. 4D" ;A( 1, I) ,A(2, I) ,A(3 , I 

930  NEXT  I 

940  PRINT  USING  "/ ,K,K,K,K,K,K,K.K,K"; "    VI   ","    Wl   ","    V2   " , "    W2   " , "    BETA1 

950  FOR  1-1  TO  L4 

960  PRINT  USING  "8D.D, 6D.D.6D.D, 6D.D.6D.D, 6D.D,6D.D.5D.2D,3D.4D";B<1, I) ,B(2, I) ,B(3, I) ,B(4, I 

970  NEXT  I 

980  PRINT  USING  "/ ,K,K.K,K,K,K.K.K,K"; "   ZETA  S*\"   ZETA  R" 

990  FOR  1-1  TO  L4 

1000  PRINT  USING  "3D. 4D.3D. 4D, 3D. 4D.3D. 4D.3D. 4D.3D. 4D, 8X.5D.2D.3D. 4D 

1010  NEXT  I 

1020  GOTO  1410 

1030  !• —  Subroutine  for  non-dimension  performance  calculations  -- 

1040  Non_dimension:   ! 

1050  G2-(G1-1)/G1 

1060  G3-SQRT((G1+1)/(G1-D) 

1070  T4-P4~G2 

1080  T3-T4+R0.*(l-T4) 

1090  P3-T3~(l/G2) 

1100  Y1-1-T3 

1110  Ml-(2/(Gl-l))*(yi/(l-YD) 

1120  Z1-.1*M1 

1130  S1-T3+Z1*Y1 

1140  Xl-SQRT(l-Sl) 

1150  X4-Xl*COS(Al) 

1160  B1-ATN((X1*SIN(A1)-X3)/X4) 

1170  X5-X4/C0S(B1) 

1180  T7-S1+X5*2 

1190  T5-S1*(P4/P3)*G2 

1200  Y6-T7-T5 

1210  M2-(2/(Gl-l))*Y6/T5 

1220  Z2-.2*M2 

1230  S2-T5+Z2*Y6 

1240  X6-SQRT(T7-S2) 

1250  B2-X4/X6 

1260  B2-ATN(SQRT(1-B2"2)/B2) 

1270  A2-ATN((X6*SIN(B2)-X3)/X4) 

1280  X2-X4/C0S(A2) 

1290  S3-S2+X2*2 

1300  T9=l-S3 


),A( 


),B( 


M1CRIT","   M2CRIT","  MR1CRIT"," 
C(1,I),C(2,I),C(3.I),C(4-,I 
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1310  N1-T9/U-T4) 

1320  P5-P4*<S3/S2)~(1/G2) 

1330  T6-P5"G2 

1340  M2-T9/C1-T6) 

1350  R1-(S1-S2)/(1-S3) 

1360  M3-X1*G3 

1370  M4-X2*G3*SQRT(1/S3) 

1380  M5-X5*G3*SQRT(1/T7) 

1390  M6-X6*G3*SQRT(1/T7) 

1400  RETURN 

1410  DISP  "Press  F2  to  exit,  press  F3  for  another  run' 

1420  PRINTER  IS  CRT 

1430  PAUSE 

1440  LOAD  "DESIGN_MENU" , 10 

1450  END 
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10  ITitle:   R_4431T 

20  !Author:   R.P.  Shreeve  (Rev.  12/3/89) 

30  !Updated:   R.A.  Wendland  (11/30/91) 

40  {Program:   Performance  calculations  for  turbine  for  varying 

50  !  theoretical  degree  of  reaction. 

60  ! 

70  CLEAR  SCREEN 

80  DUMP  DEVICE  IS  711 

90  KEY  LABELS  OFF 

100  DIM  A(7,15),B(7,15),C(7,15),R(15),S(15) 

110  INPUT  "Print  results  to  CRT  or  Printer?  (CRT-1,  Printer-0):  ",Crt 

120  IF  Crt-1  THEN  140 

130  PRINTER  IS  711 

140  ! Input  data 

150  R9-.08 

160  P9-1 

170  Q9-517.8 

180  P0-2 

190  P2-1 

200  T0-560 

210  UO-800 

220  Hl-14 

230  Al-75 

240  Gl-1.4 

250  GO-32.174 

260  K9-.98 

270  N0-35000 

280  I— —  Calculate  needed  quantities 

290  V0-109.62*SQRT(T0) 

300  X3-U0/V0 

310  P4-P2/P0 

320  R8-R9*(P0/P9)/(T0/Q9) 

330  DEG 

340  !-- — -  Calculate  performance — — ■ 

350  INPUT  "Enter  R*:  tain,  max.  step  size" ,L1,L2,L3 

360  1-1 

370  L4-0 

380  FOR  R0-L1  TO  L2  STEP  L3 

390  GOSUB  Non_dimension 

400  T8-T9*T0  ~ 

410  H0-(V0*V0/(2*G0))*T9/550 

420  P1-P3*P0 

430  T1-S1*T0 

440  T2-S2*T0 

450  V1-X1*V0 

460  V2-X2*V0 

470  W1-X5*V0 

480  W2-X6*V0 

490  W0-H1/H0 

500  X9-X1*C0S(A1) 

510  A9-(WO*144/(R8*V0))/(X9*(l-X9"2)"(l/(l-Gl))*K9) 

520  R7-(360*U0)/(PI*N0) 

530  H9-A9/(2*PI*R7) 

540  PRINT  "R*-";R0;"RM-";R7;"H-";H9;"W0-";W0 

550  ! ■--  Store  data  in  array 

560  R(I)-R0 

570  S(I)-R1 

580  A(1,I)-N1 

590  A(2.I)-N2 

600  A(3,I)-H0 

610  A(4,I)-T8 

620  A(5.I)-P1 

630  A(6,I)-T1 

640  A(7,I)-T2 

650  B(1,I)-V1 
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660  B(2,I)-W1 

670  B(3,I)-V2 

680  B(4,I)-W2 

690  B(5,I)-B1 

700  B(6,D— A2 

710  B(7,I)  — B2 

720  C(1,I)-Z1 

730  C(2,I)-Z2 

740  C(3,I)-M3 

750  C(4, 1)^14 

760  C<5,I)-M5 

770  C(6,I)-M6 

780  C(7,I)-0 

790  I-I+l 

800  L4-L4+1 

810  NEXT  R0 

820  ! Print  data 

830  PRINT  USING  "/./,/. /,K,5D. 2D, K,5D. 2D, K,6D,K";"PT0-",P0,"       P2-",P2,"  ATO.       TT0-",T0," 

840  PRINT  USING  "/ ,K, 6D,K,5D,K" ; "WHEEL  VEL.-" ,U0, "  FT/SEC.       ALPHA1-" , Al , "  DEG." 

850  PRINT  USING  "/ , / ,K,K,K,K,K,K,K,K,K" ; "  ETA  T-S" , "  ETA  T-T" , "   HP/LB  ","   DELTW  ","      PI  "," 

860  FOR  i-1  TO  L4 

870  PRINT  USING  "4D . 3D , 4D . 3D , 3D . 4D , 3D . 4D , 3D . 4D , 5D . 2D , 5D . 2D , 5D . 2D , 3D . 4D" ; A( 1 , I ) , A( 2 , I ) , A( 3 , I ) , A( 4 

880  NEXT  I 

890  PRINT  USING  "/ , / .K.K.K.K.K.K.K.K.K" ; "     VI   ","    Wl   " , "     V2   " , "     W2   " , "    BETA1  ", 

900  FOR  1-1  TO  L4 

910  PRINT  USING  "6D.D, 6D.D. 6D.D, 6D.D,6D.D, 6D.D, 6D. D, 5D.2D, 3D. 4D" ;B( 1, I) ,B(2, I) ,B(3 , I ) ,B(4 , I ) ,B(5 

920  NEXT  I 

930  PRINT  USING  "/ , / .K.K.K.K.K.K.K.K.K" ; "   ZETA  S","   ZETA  R","   M1CRIT" , "   M2CRIT" , "  MR1CRIT" , " 

940  FOR  1-1  TO-L4 

950  PRINT  USING  "3D. 4D.3D. 4D, 3D. 4D, 3D.4D, 3D. 4D.3D. 4D, 8X, 5D.2D.3D. 4D";C<1, I) ,C(2, I) ,C(3 , I) ,C(4 , I) 

960  NEXT  I 

970  GOTO  1360 

980  J-—-  Subroutine  for  non-dimension  performance  calculations 

990  Non  dimension'.    ! 

1000  G2-(G1-1)/G1 

1010  G3-SQRT((G1+1)/(G1-1)) 

1020  T4-P4*G2 

1030  T3-T4+R0*(l-T4) 

1040  P3-T3~(l/G2) 

1050  Y1-1-T3 

1060  Ml-(2/<Gl-l))*(Yl/(l-Yl)) 

1070  Z1-.1*M1 

1080  S1-T3+Z1*Y1 

1090  Xl-SQRT(l-Sl) 

1100  X4-Xl*COS(Al) 

1110  B1-ATN((X1*SIN(A1)-X3)/X4) 

1120  X5-X4/C0S(B1) 

1130  T7-S1+X5~2 

1140  T5-S1*(P4/P3)'G2 

1150  Y6-T7-T5 

1160  M2-(2/(Gl-l))*Y6/T5 

1170  Z2-.2*M2 

1180  S2-T5+Z2*Y6 

1190  X8-SQRTCT7-S2) 

1200  B2-X4/X6 

1210  B2-ATN(SQRT(1-B2*2)/B2) 

1220  A2-ATN((X6*SIN(B2)-X3)/X4) 

1230  X2-X4/COS(A2) 

1240  S3-S2+X2*2 

1250  T9-1-S3 

1260  N1-T9/C1-T4) 

1270  P5-P4*(S3/S2)"(1/G2) 

1280  T6-P5"G2 

1290  N2-T9/U-T6) 

1300  R1-(S1-S2)/(1-S3) 
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1310  M3-X1*G3 

1320  M4-X2*G3*SQRT(1/S3) 

1330  M5-X5*G3*SQRT(1/T7) 

13*0  M6-X6*G3*SQRT(1/T7) 

1350  RETURN 

1360  DISP  "Press  F2  to  exit,  press  F3  for  another  run" 

1370  PAUSE 

1380  LOAD  "DESIGN_MENU" , 10 

1390  END 


Figure   D10    (cont)    TPL  Program:    R_44  31T 
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10  ITitle:   TURB3 

20  !Author:   R.  P.  Shroevo  (09/01/88) 

30  !Updated:   R.  Wendland.  LCDR,  USN  (12/12/91) 

40  ! Program:   Calculate  and  draw  turbine  blade  profiles. 

50  ! 

60  DEG 

70  DUMP  DEVICE  IS  711 

80  CLEAR  SCREEN 

90  KEY  LABELS  OFF 

100  ! Input  Graph  parameters  

110  INPUT  "Plotting  STATOR  or  ROTOR?  (stator-0,  rotor-1):  ".Type 

120  IF  Type-1  THEN 

130  TypeS-"ROTOR" 

140  ELSE 

150  Type$-"STATOR" 

160  END  IF 

170  PRINT  "Input  axis  coordinates  for  ";TypeS;"  blade  profile  plot: 

180  IF  Type-0  THEN 

190  INPUT  "Enter  Xa  (nominal  -1.0):  ",Xa 

200  INPUT  "Enter  Xb  (nominal  3.0):  ",Xb 

210  Type-1 

220  ELSE 

230  INPUT  "Enter  Xa  (nominal  3.0):  ",Xa 

240  INPUT  "Enter  Xb  (nominal  -1.0):  ",Xb 

250  Type— 1 

260  END  IF 

270  Ya— .2 

280  Yb-ABS(Xa-Xb)/RATIO+Ya 

290  PRINT 

300  PRINT  "Axis  coordinates:'* 

310  PRINT  "  Xa  -  ",Xa 

320  PRINT  "  Xb  -  ".Xb 

330  PRINT  "   Ya  -  ",Ya 

340  PRINT  "  Yb  -  ",Yb 

350  PRINT 

360  ! Input  Data 

370  PRINT  "Enter  all  angles  in  degrees." 

380  INPUT  "Enter  T.E.  wedge  angle  (epsilon):  ",E1 

390  INPUT  "Enter  T.E.  radius  /spacing:  ",R8 

400  INPUT  "Enter  output  relative  flow  angle  (alpha2  or  beta2):  ",B3 

410  B3-B3*Type 

420  ! EQ.  26 — 

430  A5-COS(B3)-8*R8*(1-B3/90) 

440  A0-COS(B3)-8*R8*(1-ATN(SQR(1-A5"2)/A5)/90) 

450  IF  ABS(A0-A3)<. 00001  THEN  480 

460  A5-A0 

470  GOTO  440 

480  INPUT  "Enter  inlet  rel.  flow  angle(alphal  or  betal):  ",B2 

490  B2— B2*Type 

500  INPUT  "Enter  L.E.  radius  /spacing  (le/S):  ",R9 

510  INPUT  "Enter  L.E.  wedge  angle  (delta):  ",D1 

520  INPUT  "Enter  axial  chord/spacing:  ",B0 

530  Z0-2*(TAN(B3)+TAN(B2))*COS(B3)"2/B0 

540  S0-1 

550  B1-B2-10 

560  IF  Dl>20  THEN  580 

570  B1-B2-D1/2 

580  G1-B1+D1 

590  A9-(A0+2*R8)/S0 

600  E2-E1/2 

610  A8-A9/(1+TAN(E2)*2) 

620  A8-A8-SQR(A8*2-(A9"2-TAN(E2)*2)/(1+TAN(E2)"2)) 

630  A1-ATN(A8/SQR(1-A8"2)) 

640  R1-(BO-R8*(1+COS(A1+E1))-R9*(1+SIN(B1)))/(COS(A1+E1)+SIN(B1)) 

650  R2=-S0*COS(Al+El)/SIN(El)+R8 
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660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

930 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 


Turbine  Blade  Profile" 


Axial  Chord 

■  •• 

BO 

Blade  Spacing 

.  •• 

SO 

Exit  Width 

■  •• 

A0 

L.E.  Radius 

■  •• 

R9 

T.E.  Radius 

.  ■• 

R8 

L.E.  Wedge  Angl 

,-  •• 

Dl 

T.E.  Wedge  Angl 

9~  " 

El 

E0-1/(1+SIN(G1-A1-E1)) 

FO-(SIM(G1-A1-E1)+COS(D1))/(1+SIN(G1-A1-ED) 

G0-(2*(COS(Dl/2))"2)/(l+SIN(Gl-Al-ED) 

R3-A0*E0*(COS(Gl)*(SIN(Al+El)-S0/A0)-SIN(Gl)*COS(Al+El))+Rl*F0+R9*G0 

I PRINT  DATA 

PRINTER  IS  711 

PRINT 

PRINT  " 

PRINT  " 

PRINT 

PRINT  "For 

PRINT  " 

PRINT  " 

PRINT  " 

PRINT  " 

PRINT  M 

PRINT  " 

PRINT 

PRINT  "Design  Rel.  Inlet  Flow  Angle  -  ";-B2*Type 

PRINT  "Design  Rel.  Outlet  Flow  Angle  ■  ";B3*Type 

PRINT  "Zweifel  Coefficient  -  "  ;  Z0 

PRINT 

PRINT 

PRINT  "Calculated  Blade  Parameters:" 

PRINT  " " 

PRINT  "     Alpha     -  ";A1 

PRINT  "     Beta      -  ";B1 

PRINT  "     Gamma     -  ";G1 

PRINT 

PRINT       Rl        -  ";R1 

PRINT       R2        -  ",R2 

PRINT  "     R3        -  ";R3 

PRINT 

PRINT 

PRINTER  IS  CRT 

DISP  "Press  F2  to  view  plot,  F3  for  new  inputs  and  recalculate  values. 

PAUSE 

CLEAR  SCREEN 

i — ._ —  Calculate  and  Plot  data  to  CRT  screen  ■ 

t  Graph  parameters: 

X_range"Xb-Xa 

Y  range-Yb-Ya 

Dx-10 

Dy-10 

GINIT 

PEN  4 

LORG  6 

MOVE  100*RATIO/2,100 

LABEL  TypeS;"  Blade  Profiles" 

CSIZE  3.5 

MOVE  100*RATIO/2,0 

LORG  4 

LABEL  "Meridian  Plane" 

LDIR  90 

LORG  6 

MOVE  0,50 

LABEL  "Chord" 

LDIR  0 

LORG  2 

VIEWPORT  10,95*RATIO,10,95 

FRAME 

WINDOW  Xa.Xb.Ya.Yb 

AXES  X_range/Dx, Y_range/Dy,Xa, Ya 

AXES  X_range/Dx,Y_range/Dy,Xb,Yb 

CLIP  OFF 
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1310 

CSIZE  3.0,  .4 

1320 

LORG  6 

1330 

FOR  I-Xa  TO  Xb  STEP  X_range/Dy 

1340 

MOVE  I,Ya-.01*Y_range 

1350 

LABEL  USING  ',#,MD.DD"  ;  I 

1360 

NEXT  I 

1370 

LORG  8 

1380 

FOR  I-Ya  TO  Yb  STEP  Y  range/ Dy 

1390 

MOVE  Xa-.01*X_range,I 

1400 

LABEL  USING  "#,MD.DD";I 

1410 

NEXT  I 

1420 

Kl-0 

1430 

! Trailing  Edge 

1440 

T2— Al 

1450 

T3-180-A1-E1 

1460 

T4-(T3-T2)/20 

1470 

FOR  T1-T2  TO  T3  STEP  T4 

1480 

X— R8*SIN(T1) 

1490 

Y-R8*(l-COS(TD) 

1500 

PLOT  X.Y 

1510 

NEXT  Tl 

1520 

! Pressure  Side 

1530 

XI— <R1+R8)*SIN(A1+E1) 

1540 

Y1-R8+(R1+R8)*C0S(A1+E1) 

1550 

T2—  90+A1+E1 

1560 

T3-B1 

1570 

T4-(T3-T2)/20 

1580 

FOR  T1-T2  TO  T3  STEP  T4 

1590 

X-X1+R1*C0S(T1) 

1600 

Y-Y1+R1*SIN<T1) 

1610 

PLOT  X,Y 

1620 

NEXT  Tl 

1630 

1640 

X4-X1+(R1+R9)*C0S(B1) 

1650 

Y4-Y1+(R1+R9)*SIN(B1) 

1660 

T2— Bl 

1670 

T3-180-G1 

1680 

T4-(T3-T2)/20 

1690 

FOR  T1-T2  TO  T3  STEP  T4 

1700 

X-X4-R9*C0S(T1) 

1710 

Y-Y4+R9*SIN(T1) 

1720 

PLOT  X.Y 

1730 

NEXT  Tl 

1740 

X6-X 

1750 

Y6-Y 

1760 

PENUP 

1770 

1780 

PEN  4 

1790 

X2— (R2-R8)*SIN(A1) 

1800 

Y2-R8+(R2-R8)*C0S(A1) 

1810 

T2-0 

1820 

T3-E1 

1830 

T4-(T3-T2)/20 

1840 

FOR  T1-T2  TO  T3  STEP  T4 

1850 

X-X2+R2*SIN(T1+A1) 

1860 

Y-Y2-R2*C0S(T1+A1) 

1870 

PLOT  X.Y 

1880 

NEXT  Tl 

1890 

1900 

X5-X2+R2*SIN(E1+A1) 

1910 

Y5-Y2-R2*COS ( El+Al ) 

1920 

X3-X5-R3*SIN(E1+A1) 

1930 

Y3-Y5+R3*COS( El+Al) 

1940 

T2— (90-A1-E1) 

1950 

T3-G1 

Figure  Dll  (cont)  TPL  Program:  TURB3 
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1960 

T4-(T3-T2)/20 

1970 

FOR  T1-T2  TO  T3  STEP  T4 

1980 

X-X3+R3*C0S(T1) 

1990 

Y-Y3+R3*SIN(T1) 

2000 

IF  Y<Y6  THEN  2060 

2010 

PENUP 

2020 

PRINT 

2030 

PRINT  "Those  values  give  discontinuous  slope 

on  suction 

side 

2040 

PRINT 

2030 

GOTO  370 

2060 

PLOT  X.Y 

2070 

NEXT  Tl 

2080 

PLOT  X6.Y6 

2090 

PENUP 

2100 

IF  Kl-1  THEN  2140 

2110 

Kl-1 

2120 

WINDOW  Xa-S0,Xb-S0,Ya(Yb 

2130 

GOTO  1430 

2140 

! Area  Progression  Thru  Passage 

2150 

WINDOW  Xa.Xb.Ya.Yb 

2160 

X7-X1+S0 

2170 

Y7-Y1 

2180 

T2— (90-A1-E1) 

2190 

T3-B1 

2200 

T4-(T3-T2)/20 

2210 

PEN  7 

2220 

LINE  TYPE  5 

2230 

FOR  T1-T2  TO  T3  STEP  T4*2 

2240 

X-X7+(R1-AO)*COS(T1) 

2250 

Y-Y7+(R1-A0)*SIN(T1) 

2260 

PLOT  X.Y 

2270 

NEXT  Tl 

2280 

DUMP  GRAPHICS 

2290 

DISP  "F2  to  continue  " 

2300 

PAUSE 

2310 

CLEAR  SCREEN 

2320 

INPUT  "Calculate  blade  number?  (1-Yes,  0-No): 

",N0 

2330 

IF  NO-0  THEN  2470 

2340 

PRINTER  IS  711 

2350 

INPUT  "Enter  axial  chord  (in.):  ",B 

2360 

INPUT  "Enter  mean  radius  (in.):  ",R5 

2370 

S-B/B0 

2380 

Z1-2*PI*R5/S 

2390 

B-B0*S 

2400 

A-A0*S 

2410 

PRINT 

2420 

PRINT  "Axial  chord      -  " 

B;"  in." 

2430 

PRINT  "Blade  space      -  " 

S;"  in." 

2440 

PRINT  "Throat  width     -  " 

A;"  in." 

2450 

PRINT  "Number  of  blades  -  " 

Zl 

2460 

PRINTER  IS  CRT 

2470 

DISP  "F2  to  exit,  F3  for  another  run" 

2480 

PAUSE 

2490 

LOAD  "DESIGN_MENU" , 10 

2500 

END 

Figure  Dll  (cont)  TPL  Program:  TURB3 
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10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

810 

620 

630 

640 

650 


!  Title:   TURB4 

!  Author:   R.  P.  Shreeve  (09/01/88) 

!  Updated:   R.  A.  Wendland,  LCDR,  USN,  (12/17/91) 

!  Program:   Calculate  blade  height  and  lossess  for  given  mean 

!  line  conditions  for  a  single  stage  axial  turbine 

i 

DIM  0(3,17) 
CLEAR  SCREEN 
PRINTER  IS  CRT 
DUMP  DEVICE  IS  711 
KEY  LABELS  OFF 

|. Design  Input  Data 

PRINT  "Input  data  from  program  4431T:" 
INPUT  "Enter  PtO  (psia):  ",P0 
INPUT  "Enter  TtO  (deg  R) :  ",T0 
INPUT  "Enter  delta  Tw  (DELTW  deg  R): 
INPUT  "Enter  w  dot  (lbs /sec):  ",W0 

i ,  ga8  properties 

R4=53.393 

G9-1.4 

C9-.24 

J9-778 

G8-32.174 

! Velocity  Diagram  Data  

DEG 


,J0 


INPUT  "Enter  Alpha_e  (deg):  ",L3 


",L4 


(ts):  ' 

( tmax ) 

",T9 


INPUT  "Enter  delta  alpha  (deg): 

INPUT  "Enter  Mlcr:  ".Ml 

INPUT  "Enter  Beta_e  (deg):  ",B3 

INPUT  "Enter  delta  beta  (deg):  ",B4 

INPUT  "Enter  M'crl:  ",M3 

INPUT  "Enter  M'cr2:  ",M4 

I——  Stator  Blade  Date  — ■ 

CLEAR  SCREEN 

PRINT  "Input  STATOR  blade  data  from  TURB3: 
INPUT  "Enter  number  of  blades  (z):  ",Z1 
INPUT  "Enter  throat  width  (a):  ".A 
INPUT  "Enter  axial  chord  (b):  ",B 
INPUT  "Enter  blade  spacing  (S):  ",S 
INPUT  "Enter  blade  chord  (c):  ",C 
INPUT  "Enter  trailing  edge  thickness 
INPUT  "Enter  maximum  blade  thickness 
INPUT  "Enter  tip  clearance  (delta  t): 

! Analysis  of  the  Stator  

K-l 

CLEAR  SCREEN 

INPUT  "Enter  STATOR  profile  loss  (fig  15  (ref 

S9-2*S1 

N0-1 

X8«M1"2*(G9-1)/'(G9+1) 

X9-X8/U-S9) 

R0-P0*144/(R4*T0) 

V0-SQR ( 2*C9*T0*G8* J9 ) 

P5-(1-X9)~(G9/(G9-1)) 

T5-1-X8 

T1-T5*T0 

P1-P5*P0 

R1-R0*P5/T5 

! Re  into  stator 

X6-X8*(COS(L3)/COS(L3-L4))"2 

T-1-X6 

P-T*(G9/(G9-1)) 

R-R0*P/T 

J1-T*T0 

M8-1.153E-5*.06333*SQR(J1)/(198.72/J1+1) 


,T7 
",T8 


1174VAD):  ",S1 


Figure  D12   TPL  Program:  TURB4 
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840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 


•;N0 


Blade  height  ■ 

';H9; 

1  in." 

2xi t  press.   ■ 

';P1; 

'  psia" 

Exit  temp.    - 

•;T1;' 

*  deg  R" 

R9-SQR(X6 ) *V0*R*C/ (M8*12 ) 

Q8-R0*V0*SQR(X9)*(1-X9)"(1/(G9-D) 

D8-L4 

D7-L3 

M-SQR((2/(G9-1))*X8/(1-X8)) 

PRINT 

PRINT 

PRINT  "STATOR  Blade  Analysis:" 

PRINT  " 

PRINT 

GOSUB  Blading_loss 

IF  ABS(S9-S6)<.002  THEN  840 

PRINT  "Above  results  are  for  interation 

S9-S6 

N0-N0+1 

GOTO  510 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

0(K,16)-P1 

0(K,17)-T1 

DISP  F2  to  continue" 

PAUSE 

I Rotor  Blade  Data • — 

K-2 

PRINT  "Input  ROTOR  blade  data  from  TURB3:" 

INPUT  "Enter  number  of  blades  (z):  ",Z1 

INPUT  "Enter  throat  width  (a):  ",A 

INPUT  "Enter  axial  chord  (b):  ",B 

INPUT  "Enter  blade  spacing  (S):  ",S 

INPUT  "Enter  blade  chord  (c):  ",C 

INPUT  "Enter  trailing  edge  thickness  (ts):  ",T7 

INPUT  "Enter  maximum  blade  thickness  (tmax):  ",T8 

INPUT  "Enter  tip  clearance  (delta  t):  ",T9 

INPUT  "Enter  ROTOR  profile  loss  (fig  15,  ref:  1174VA1):  ",S1 

S9-3*S1 

N0-1 

G7-(G9-1)/(G9+1) 

Y8-M4~2*G7 

Y9-Y8/U-S9) 

T4»( 1 -G7*M1"2 ) / ( 1-G7*M3~2 ) 

P4-(T4/T5)'(G9/(G9-D) 

R3-P4*P5*R0/T4 

W3-V0*SQR(T4) 

P6-(1-Y9)*(G9/(G9-D) 

T6-1-Y8 

P2-P6*P4*P1 

T2-T6*T4*T0 

! Re  into  ROTOR 

M8-1.153E-5*.06333*SQR(T1)/(198.72/T1+1) 

Y7-M3"2*G7 

R9-SQR(Y7)*W3*R1*C/(M8*12) 

Q8-R3*W3*SQR(Y9)*(1-Y9)*(1/(G9-1)) 

D8-B4 

D7-B3 

M-SQR((T4/T5-1)*2/(G9-D) 

PRINT 

PRINT 

PRINT  "ROTOR  Blade  Analysis:" 

PRINT  " " 
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1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1870 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 


Blade  height  -  ",H9 
Exit  press.  -  ";F2 
Exit  temp.    -  ";T2 


";N0 


in." 

pais" 
deg  R" 


PRINT 

GOSUB  Blading_loss 

IF  ABS(S9-S6)<.002  THEN  1380 

PRINT  'Above  results  are  iteration 

S9-S6 

N0-N0+1 

GOTO  1100 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

0(K,16)-P2 

0(K,17)-T2 

DISP  "F2  to  continue" 

PAUSE 

I Calculate  Stag*  Performance 

K-3 

P8-P0/P2 

P9-P2*((T0-J0)/T2)~(G9/(G9-1)) 

P9-P0/P9 

E3-T0*(1-(1/P8)~((G9-1)/G9)) 

E8-J0/E8 

E9-T0*(l-(l/P9r<(G9-l)/G9)) 

E9-J0/E9 

PRINT 

PRINT  "Stage  Performance:" 

PRINT  " -" 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

0<K,1)-P8 

0(K.2)-E8 

0(K,3)-P9 

0(K,4)-E9 

I Print  Reaulta  

PRINT  "Data  to  be  printed  on  Printer." 

PRINT  " —  Ensure  paper  is  correctly  set,  press  F2  to  continue." 

PAUSE 

PRINTER  IS  711 

PRINT 

PRINT 

PRINT  TAB(27); "Single  Stage  Axial  Turbine  Design" 

PRINT  TABC27);" " 

PRINT 
PRINT 
PRINT  TAB (41); "Stator " ; TAB ( 61 ) ; "Rotor" 

PRINT  TAB(41);" ";TAB(61);" " 

PRINT 

PRINT  USING  "15X,K,llX,5D,15X,5D";"No.  of  Blades' ;0( 1, 8) ;0(2, 8) 

PRINT  USING  "15X,K";" " 

PRINT 
PRINT 
PRINT  TAB( 16); "Blade  geometry  (inches)" 

PRINT  TABU8);" " 

PRINT 
Formatl:   IMAGE  15X.K, 5X,D. 3D. 14X.D. 3D 
PRINT  USING  Formatl; "Blade  Height 
PRINT  USING  Formatl; "Exit  Width 
PRINT  USING  Formatl; "Axial  Chord 


Pressure  Ratio  (T-S)  - 
Pressure  Ratio  (T-T)  - 


';P8;' 
;P9;' 


Efficiency  (T-S)  -  ";E8 
Efficiency  (T-T)  -  ";E9 


",0(1, 7), 0(2,7) 
",0(1, 9), 0(2, 9) 
",0(1, 10), 0(2, 10) 
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21A0 
2150 
2160 
2170 
2180 
2190 
2200 
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2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 


"Ref.  Profile  Loss 
"Tot.  Profile  Loss 
"Sac.  Flow  Loss 
"Mixing  Loss 
"Tip  Clearance  Loss 
"Total  Loss  Coaff . 


",0(1.15,0(2,1) 
",0(1, 2), 0(2, 2) 
",0(1, 3), 0(2, 3) 
",0(1, 4), 0(2, 4) 
",0(1, 5), 0(2, 5) 
",0(1, 6), 0(2, 6) 


PRINT  USING  Formatl; "Spacing  " ,0(1, 11) ,0(2, 11) 

PRINT  USING  Formatl; "Chord  " ,0(1, 12) ,0(2, 12) 

PRINT  USING  Formatl ;"T.E.  Thickness       " ,0(1, 13) ,0(2, 13) 

PRINT  USING  Formatl; "Max.  Thickness       " ,0(1, 14) ,0(2, 14 ) 

PRINT  USING  Formatl;"Tip  Clearance       " ,0(1, 15) ,0(2, 15) 

PRINT 

PRINT 
Format2:  IMAGE  15X.K, 5X.D. 4D, 13X.D. 4D 

PRINT  TAB( 16 ); "Blade  Row  Performance" 

PRINT  TAB(16);"— — — — ■• 

PRINT  USING  Format2; 

PRINT  USING  Format2; 

PRINT  USING  Format2; 

PRINT  USING  Format2; 

PRINT  USING  Format2; 

PRINT  USING  Format2; 

PRINT 
Format3:  IMAGE  15X.K. 5X, 3D.2D, 14X, 3D.2D 

PRINT  USING  Format3 ; "Exit  Pressure  (psia)" ,0(1, 16) ,0(2, 16) 

PRINT  UriNG  Fonnat3;"Exit  Tamp.    (dag  R)" ,0(1, 17) ,0(2, 17) 

PRINT 

PRINT 

PRINT  TAB( 18) ; "Stage  Performance" ; TAB(39) ; "Total-Total" ; TAB(59) ; "Tot-Static' 

PRINT  TABU6) ;  " "  ;TAB(39) ;  »—————"  ;TAB (59) ;  "- " 

PRINT 

PRINT  USING  Formatl; "Pressure  Ratio       " ,0(3 , 3) ,0(3, 1 ) 

PRINT  USING  Format2; "Efficiency  ";0(3, 4) ,0(3,2) 

PRINTER  IS  CRT 

GOTO  2740 

F    •   '  Blading  loss  subroutine  ••■••■ — — «■—       ■■ i 

Blading  loss:  ! 

j Total  Profile  Loss  

PRINT  "Re  -  ";R9 


(fig  23,  ref:  GA1074VA2):  ",K1 
(fig  18,  ref:  1174VA1):  ",K3 


INPUT  "Enter  K(Re) 

PRINT  "Mach#  -  ";M 

INPUT  "Enter  K(M) 

K2-l+2*(T8/C-.2) 

S2-S1*K1*K2*K3 

W9-W0*144/(Z1*Q8*A~2) 

H9-A*(W9*(1+.77*S2)+.025*S2*D8) 

!-----  Secondary  Flow  Loss  

H5-(S-T7)*COS(D7)/H9 

S3-S2* . 0323*D8*H5*( 1+ . 962*S2) / ( 1- . 03*D8*H5*S2) 

j Mixing  Loss 

S4-(T7/S+.962*S2)/(1+.962*S2) 
S4-(COS(D7 )*S4/ ( 1-S4 ) )~2 
S4-S4/(l+S4) 

!  — Tip  Clearance  Loss 

D6-D7-D8 

D5-ATN((TAN(D6)+TAN(D7))/2) 

S5K:OS(D7)*2*(ABS(TAN(D6)-TAN(D7))"1.5/COS(D5)) 

S5-2 . 26*S5*T9/ (H9*SQR(B/S ) ) 

S5-S5/U+S5) 

I Total  Losses 

S6-S2+S3+S4*S5 

PRINT  "Ref.  Profile  Loss 

"Tot.  Profile  Loss 

"Sac .  Flow  Loss 
PRINT  "Mixing  Loss 
PRINT  "Tip  Clearance  Loss 
PRINT 
PRINT  " 
0(K,1)-S1 
0(K,2)-S2 
0(K,3)-S3 


PRINT 
PRINT 


;S1 
;S2 
;S3 

;S4 
;S5 


Total  Loaa  - 


;S6 
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2610 

0(K,4)-S4 

2620 

0(K,5)-S5 

2630 

0(K,6)-S6 

2640 

0(K,7)-H9 

2650 

0(K,8)-Z1 

2660 

0(K,9)-A 

2670 

O(K,10)-B 

2680 

0(K,11)-S 

2690 

0(k,i2)k: 

2700 

0(K,13)-T7 

2710 

0(K,14)-T8 

2720 

0(K,15)-T9 

2730 

RETURN 

2740 

DISP  "F2  to  exit, 

2750 

PAUSE 

2760 

PRINTER  IS  CRT 

2770 

LOAD  "DESIGN_MENU 

2780 

END 

F3  for  another  run" 


10 
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! Program:  DESIGN_MENU 

(Description .  Program  to  provide  Function  Key  menu  selection  of  programs. 

! 

CLEAR  SCREEN 

PRINTER  IS  CRT 

KEY  LABELS  ON 


ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 


LABEL  "R_4431T"  GOTO  R_4431t 
LABEL  "A_4431T"  GOTO  A_4431t 
LABEL  "TURB3"  GOTO  Turb3 
LABEL  "TURB4"  GOTO  Turb4 
LABEL  "  "  GOTO  Hold 
GOTO  Hold 


LABEL 

LABEL  "MAIN  MENU"  GOTO  Main 
ON  KEY  8  LABEL  "EXIT  MENU"  GOTO  Exit 
! 

PRINT  "Turbo-propulsion  Design  Programs" 
PRINT 

PRINT  "Item: 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT  "  Main  Menu 
PRINT  "  Exit  Menu 
! 


Select  Function  Key" 


R_4431T:  Performanc  Calculations 

(Iterate  on  R*)" 
A_4431T:  Performanc  Calculations 
(Iterate  on  Alpha.!)" 
Draw  Blade  Profiles 
Blade  Height  and  Loses 


TURB3: 
TURB4: 


Fl" 

F2" 

F3" 
F4" 

F7" 
F8" 


300  Hold:   ! 
310   GOTO  Bold 
320  R  4431t:   ! 


,10 


LOAD   "R_4431T" 
A_4431t:   ~l 
~LOAD   "A_443ir\10 
! 

"TURB3",10 


330 

340 

350 

360  Turb3: 

370   LOAD 

380  Turb4:  ! 

390   LOAD  "TURB4",10 

400  Main:   ! 

410    MASS  STORAGE  IS  "/WORKSTATIONS" 

420    LOAD  "AUTOST",10 

430  Exit: CLEAR  SCREEN 

440    END 


Figure  -D13      TPL  Program:    DESIGN_MENU 
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290 
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(Program: 

IDescrip: 

! 

(Devices : 

•Modify: 

(Notes: 

I 

I 

I 

! 

! 

DIM  Press (1:50) 

(Designate  Scanivalve: 

INPUT  "Input  Scanivalve, 

( 

"6STG10STIT3" 


SCAN 

Reads  voltages  from  designated  scanivalve  through  scanner  #1 

and  prints  to  CRT  port  #  and  voltages  in  pressure  (in.  Hg). 

HP3495A(701)  #1,  HP3456A(722) ,  HG-78(707),  Scanivalve( 1-5) 

Using  Mo  Lye  routines. 

Devices  HP3495A  and  HG-78  use  specific  communication  formats 

in  the  OUTPUT  statements  by  utilizing  the  image  form  USING. 

HP3495A:  OUTPUT  701  USING  "DDD";V+9 
HG-78:    OUTPUT  707  USING  "#,K";V 


OUTPUT  722; 

CLEAR  701 

! 

FOR  Port_reqd-First  TO  Last 

GOSUB  Read 

WAIT  .5 

OUTPUT  701  USING  "DDD";V+9 

TRIGGER  722 

ENTER  722;Press(Port_reqd) 

CLEAR  701 
NEXT  Port_reqd 
CLEAR  722~ 
! 

PRINT  "PORT  #", "PRESS  (IN.  H20)" 
PRINT 
FOR  I-First  TO  Last 

PRINT  I,Press(I)*100000 
NEXT  I 


(Assign  array  in  Memory. 

First  port,  Last  port: " ,V, First, Last 

! Set-up  HP3456A  DVM. 
(Reset  HP3495A  Scanner. 


(Routine  to  read  pressure  values. 
(Subroutine  to  read  Scanivalve 
(port  number  from  HG-78. 
(Set  Scanner  connect  DVM  to  HG-78 
(Trigger  DVM  to  read  Scanivalve. 
(DVM  reads  value,  and  writes  to 
(HP9000  memory.  Scanner  is  reset. 

(Reset  DVM. 

(Routine  to  print  results  to  the 
1HP9000  CRT. 


! 

GOTO  Finish 


►END  OF  MAIN  PROGRAM** 


'SUBROUTINE  READ  AND  POSITION  SCANIVALVE 


380  Read:   t 


390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 


"#,K";V 


OUTPUT  707  USING 

P0-SPOLL(707) 

L-BINAND(P0,15) 

T-SHIFT(P0,4) 

M-BINAND(T,7) 

Port_read-10*M+L 

CLEAR  707 

IF  Port_read-Port_reqd  THEN  Exit 

OUTPUT  701  USING  "DDD";V-1 


(Routine  to  coll  HG-78, 
(current  port  assigned, 
(number,  and  convert  it 
! format . 


ask  for  the 
read  the  port 
to  decimal 


CLEAR  701 
WAIT  .1 
GOTO  Read 

510  Exit:RETURN 

520    I********* 

530  Finish:-! 

540    END 


(Scanivalve  port  number  in  decimal 

t  format .  . 

(Exit  subroutine  if  reqd  port  selected 

(Advance  S/V  to  next  port 

! Reset  Scsnner 

(Loop  to  Read  for  another  port  reading. 


►END  OF  SUBROUTINES* 
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10  SUB  Plot 

20  1  Subroutine  to  display  plot  scr 

30  t  for  the  specified  variables  in 

40  COM  /Plot_labels/  Xo.Xf ,Yo, Yf ,Dx 

30  CLEAR  SCREEN 

60  KEY  LABELS  OFF 

70  GINIT 

80  X_range-Xf-Xo 

90  Y~range-Yf-Yo 

100  LORG  6 

110  MOVE  100*RATIO/2,100 

120  CSIZE  3 

130  LABEL  Tltle$ 

140  MOVE  100*RATIO/2,0 

ISO  LORG  4 

160  LABEL  X_labelS 

170  DEG 

180  LDIR  90 

190  LORG  6 

200  MOVE  0,50 

210  LABEL  Y  labelS 

220  LDIR  0  " 

230  LORG  2 

240  VIEWPORT  10,90*RATIO, 10, 90 

250  FRAME 

280  WINDOW  Xo.Xf. Yo.Yf 

270  AXES  X  range/Dx.Y  range/Dy.Xo, Yo 

280  AXES  X~range/Dx,Y~range/Dy,Xf.Yf 

290  GRID  X~range/Dx,Y~range/Dy,Xo,Yo 

300  CLIP  OFF 

310  CSIZE  3.0,. 4 

320  LORG  6 

330  FOR  I-Xo  TO  Xf  STEP  X  range /Dx 

340     MOVE  I,Yo-.01*Y_range 

330     LABEL  USING  "#,K";I 

360  NEXT  I 

370  LORG  8 

380  FOR  I-Yo  TO  Yf  STEP  Y_range/Dy 

390     MOVE  Xo-.01*X  rangeTl 

400     LABEL  USING  "#,K";I 

410  NEXT  I 

420  CLIP  ON 

430  I 

440  SUBEND 


een,  less  the  plots  of  any  curves 
the  COM  /Plot_labels/  line. 
,Dy, TitleS, X  labelS.Y  labelS 


! Initialize  graph  routine 

(Length  of  X-axis 

! Length  of  Y-axis 

(Character  ref  pt:top  center 

•Move  cursor  to  screen  loc  for  labels 

! Sizes  labeling 

(Plot  title 

!Move  cursor  to  bottom  center  screen 

(Character  ref  pt:bottotn  center 

!X-axis  label 

(Desig  degrees  for  LDIR 

(Sets  Y-axis  label  on  end 


(Y-axis  label 

(Reset  label  to  horizontal  orientation. 

(Chr  ref  pt:left  center 

(Seta  graph  screen  size 

(Box  around  VIEWPORT 

tSet  axis  lengths  in  VIEWPORT 

(Axes  intersect  at  lower  left 
(Axes  intersect  at  upper  right 
,Dx,Dy,.001   (Create  dot  grid  background 

(So  labels  can  print  outside  VIEWPORT 

(Axes  label  size 

(Number  X-axis 


(Number  Y-axia 


Figure   D15      TPL  Subprogram:    Plot 
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10  IDateS-FNDateS(TIMEDATE) 

20  DEF  FNDat.eS( Seconds) 

30  Julian-Seconds  DIV  86400-1721119 

40  Year-( 4* Julian- 1)  DIV  146097 

50  Julian-(4*Julian-l)  MOD  146097 

60  Day-Julian  DIV  4 

70  Julian-(4*Day+3)  DIV  1461 

80  Day-(4*Day+3)  MOD  1461 

90  Day-(Day+4)  DIV  4 

100  Month-(5*Day-3)  DIV  153   !  Month 

110  Day-(5*Day-3)  MOD  153 

120  Day-(Day+5)  DIV  5        !  Day 

130  Year-100*Year+Julian 

140  IF  Month<10  THEN 

150  Month-Month+3 

160  ELSE 

170  Month-Month+3 

180  Year-Year+1 

190  END  IF 

200  YearS-VALS(Year) 

210  IF  Month<10  THEN 

220  MonthS- " 0 " &VALS ( Month ) 

230  ELSE 

240  MonthS-VALS( Month) 

250  END  IF 

260  IF  Day<10  THEN 

270  DayS-"0"&VAL$(Day) 

280  ELSE 

290  DayS-VALStDay) 

300  END  IF 

310  DS-YaarS[3,4]«MonthS&DayS 

320  RETURN  DS 

330  FNEND 


Figure   D16      TPL  Subprogram:    FNDate$ 
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10  t Program: FILE_XFER 

20  (Description:  transfers  selected  files  to  a  selected  directory,  and 

30  I             PURGES  the  same  file  if  desired. 

A0  ON  ERROR  GOTO  Error 

SO  CLEAR  SCREEN 

60  DIM  DirectorylS[351 

70  DIM  Directory2S[35) 

80  PRINT  "This  program  transfers  files  from  an  existing  specified  INITIAL  directory" 

90  PRINT  "to  a  NEW  directory." 

100  INPUT  "Initial  Directory?  (ex.  '/',' /WORK/ ')", Directory IS 

110  INPUT  "New  directory?  (ex.  ' / * , ' /WORK/' )" ,Directory2S 

120  CLEAR  SCREEN 

130  CAT  DirectorylS 

140  Transfer:   I 

150  INPUT  "File  for  transfer  (CAT  to  print  directory,  QUIT  to  Exit)" ,FileS 

160  IF  FileS-"QUIT"  THEN  Finish 

170  IF  FileS-"CAT"  THEN 

180  CLEAR  SCREEN 

190  CAT  DirectorylS 

200  GOTO  Transfer 

210  END  IF 

220  Copy:   ! 

230  COPY  DirectorylS&FileS  TO  Dlrectory2S&File$ 

2A0  PRINT  "File  "; Directory l$&FileS ; "  transferred  to  " ;Directory2S&File$ 

230  INPUT  "Purge  this  file  from  current  directory?  (Yes-1  No-0)",Del 

260  IF  0el-i  THEN 

270  PURGE  DirectorylS&FileS 

280  END  IF 

290  GOTO  Transfer 

300  Error:   I 

310  IF  ERRN-5A  THEN 

320  PRINT  "File:  ";Dlrectory2S&FileS; "  already  exist." 

330  INPUT  "Do  you  went  to  purge?  (0-No  l-¥es)",Flle_purge 

SAO  IF  File_purge-1  THEN 

350  PURGE  Directory2S&FileS 

380  PRINT  "File:  ";Dlrectory2S&FileS; "  purged." 

370  GOTO  Copy 

380  ELSE 

390  PRINT  "File:  " ;Directory2S&FileS; "  NOT  purged." 

A  00  END  IF 

A10  END  IF 

A20  GOTO  Transfer 

A30  Finish:   I 

AA0  CLEAR  SCREEN 

AS0  END 


Figure  D17   TPL  Program:  FILE_XFER 
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10  ! Program:  MAIN_MENU  returns  working  window  to  the  Main  Menu 

20  CONTROL  CRT, 5; A  ! Reset  screen  color  to  Green. 

30  MASS  STORAGE  IS  "/WORKSTATIONS" 

A0  LOAD  "AUTOST",10 

50  END 


Figure   D18      TPL  Program:    MAIN  MENU 
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